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ABSTRACT 


Connecting  heterogenous  computer  systems  via  local  area 
networks  presents  a  challenge  to  software  designers  for  the 
development  of  effective,  reliable,  and  modifiable  network 
communication  software. 

This  thesis  presents  a  set  of  hierarchical  program 
modules  written  for  use  on  any  INTELLEC  MBS  microcomputer 
development  system,  running  the  CP/M-80  operating  system,  to 
allow  the  system  to  become  part  of  an  Ethernet  local  area 
network.  These  program  modules  were  written  to  not  only 
obey  the  principles  of  software  engineering,  but  to  also 
reflect  the  same  functional  hierarchy  as  the  International 
Standards  Organization  Open  System  Interconnection  (ISO  OSI ) 
architectural  reference  model  for  computer  networks. 
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I .  INTRODUCTION 


A.  DISCLAIMER 

Many  terns  used  in  this  thesis  are  registered  trademarks 
of  commercial  products.  Rather  than  attempt  to  cite  each 
individual  occurrence  of  a  trademark,  all  registered  trade 
marks  appearing  in  this  thesis  are  listed  below  following 
the  firm  holding  the  trademarks 

Digital  Research  Incorporated,  Pacific  Grove,  California 
CP/M -60  Operating  System 
CP/M -66  Operating  System 
PL/I -80  Programming  Language 
PL/I -06  Programming  Language 
LINK-00  Linking  Utility 
XLT-86  Code  Conversion  Utility 
Intel  Corporation,  Santa  Clara,  California 

INTELLEC  MDS  Microcomputer  Development  System 
Multibus  Bus  Architecture 
8080/8086  Microprocessors 

3080  Assembly  Language  Programming  Language 
ISIS-II  Operating  System 
IAPX-432  Development  System 
Digital  Equipment  Corporation,  Maynard,  Massachusetts 


7 AX  11/790  Minicomputer 


7 AX/VMS  Operating  System 
Interlan  Corporation,  Chelmsford,  Massachusetts 
NI3010  Ethernet  Controller  Board 
Xerox  Corporation,  Stamford,  Connecticut 
Ethernet  Local  Area  Network 

B.  BACKGROUND 

The  connection  of  heterogeneous  computer  systems  via 
some  form  of  network,  to  perform  various  data  processing 
tasks  where  data  or  resource  sharing  is  important,  is  an 
extremely  active  topic  for  both  hardware  and  software 
designers. 

The  International  Standards  Organization  Open  System 
Interconnection  (ISO  OSI)  architectural  refererce  model 
provides  the  general  framework  in  which  computer  network 
systems  are  designed  to  operate.  This  seven-layered, 
hierarchical  description  of  functions  was  developed  to 
provide  a  vehicle  for  the  later  development  of  a  set  of 
specific  network  protocols.  The  hierarchical  nature  of  this 
model  compares  favorably  with  the  techniques  of  hier¬ 
archical,  structured  design  of  software  that  are  being 
taught  and  implemented  today.  The  logical  conclusion  of  the 
above  comparison  is  to  use  the  functionally  layered  frame¬ 
work  provided  by  the  ISO  OSI  model  as  a  guide  for  deciding 
how  to  modularize  the  communication  software  necessary  to 
allow  host  computers  to  be  connected  via  a  network. 


C.  PURPOSE 

The  main  purpose  of  this  thesis  is  to  construct  a  soft¬ 
ware  interface  to  the  CP/M-80  operating  system  so  that  files 
and  messages  can  he  transported  between  various  host  systems 
via  a  Local  Area  Network.  The  structuring  of  this  software, 
to  reflect  the  layers  of  the  ISO  model,  allows  modifications 
to  the  network  software  to  he  more  easily  made. 

This  thesis  presents  a  set  of  PL/I-83  and  Intel  8080 
Assembly  Language  modules  that,  when  linked  together,  allow 
INTELLEC  *DS  users  to  communicate  via  an  Ethernet  Local  Area 
Network.  The  complete  set  of  software  developed  also 
includes  two  programs  that  can  he  used  to  troubleshoot  or 
test  the  Ethernet  hardware.  The  communication  program 
allows  INTELLEC  (IDS  computers  connected  to  the  network  to: 

1.  Send  messages  or  files  to  other  hosts. 

2.  Receive  messages  or  files  from  other  hosts. 

3.  Become  a  terminal  of  the  VAX  11/780. 

4.  Command  file  transfers  to  or  from  the  VAX. 

Additionally,  the  communication  software  will  provide 

faster  data  transfers  between  host  machines  than  the  direct 
host-to-host  serial  communications  methods  currently  used. 

This  thesis  is  divided  into  four  chapters.  Chapter  II 
discusses  computer  networks  in  general.  The  Ethernet  is 
presented  as  a  specific  example  of  a  Local  Area  Network. 

The  Interlan  hardware  is  also  discussed  as  an  implementation 
of  the  Ethernet.  Chapter  III  deals  with  the  details  of  the 
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Ethernet  communications  software.  The  topological,  hard¬ 
ware,  software  and  performance  issues  are  presented  in 
detail.  Chapter  IV  presents  the  conclusions  drawn  from  the 
network;  realization  and  discusses  possible  areas  of  future 
growth  and  performance  enhancement. 


Si 
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II.  COMPUTER  NgTWOgKS 


A.  DEFINITION 

Computer  networks  are  defined  to  be  collections  of 
interconnected,  autonomous  computers.  A  computer  network 
can  also  be  a  grouping  in  which  the  required  processing 
functions  are  dispersed  among  several  of  the  attached 
hosts.  [Ref.  1:  p.  2] 

Computer  networks  are  classified  by  their  length. 

Networks  whose  attached  hosts  are  farther  than  a  few  kilo¬ 
meters  apart  are  considered  Long  Haul,  while  shorter  networks 
are  considered  Local  Area.  Networks  are  also  classified  by 
the  nature  of  the  hosts  connected  to  them.  Homogeneous 
networks  consist  of  like  hosts,  while  heterogeneous  networks 
consist  of  dissimilar  hosts. 

B.  PURPOSE 

The  main  reason  that  the  subject  of  computer  networking 
has  rapidly  achieved  prominence  is  that  networking  provides 
a  workable  solution  to  data  processing  problems  where  the 
sharin*  of  data  or  other  resources  is  important.  Networking 
can  also  enhance  the  fault  tolerance  of  an  activity's 
computational  assets.  Loss  of  any  host,  connected  to  most 
Local  Area  networks,  would  not  affect  either  the  other  hosts 
or  the  network  itself.  [Ref.  1:  pp.  3-4] 


Current  trends  seem  to  point  to  the  merging  of  personal 
computers  with  Local  Networking  to  form  what  one  author  calls 
"community  microcomputing"  [Ref.  2:  p.  60].  This  refers  to 
the  interconnection,  via  a  Local  Area  Network,  of  a  set  of 
microcomputers  that  may,  as  a  networked  group,  enhance  the 
price/performance  ratio  for  the  using  activity  when 
compared  to  installing  a  single,  large  mainframe  computer 
[Ref.  Is  p.  5] . 

C .  THEORY 

The  most  generally  accepted  model  of  computer  network 
architecture  is  the  International  Standards  Organization 
Open  Systems  Interconnection  Model  f I SO  OSI)  model.  This 
model  is  a  set  of  hierarchical  functions  and  protocols  that 
are  necessary  to  allow  computers  to  communicate  via  a  net¬ 
work.  The  seven  layers  and  their  definitions  are  listed 
below:  [Ref.  1:  pp.  15-21] 

1.  Physical  Layer  -  This  layer  provides  the  actual 
connection  between  hosts.  It  provides  the  bit 
stream  transmission  across  the  network  medium. 

2.  Data  Link  Layer  -  This  layer  performs  error  detection 
and  correction,  address  recognition  and  flow  control. 
This  layer  also  provides  data  framing  if  necessary. 

3.  Network  Layer  -  The  network  layer  provides  logical 
channels  between  two  endpoints  in  a  network.  This 
layer  forms  the  data  into  packets  for  transmission. 

4.  Transport  Layer  -  The  transport  layer  provides  the 
network  with  single,  group,  or  broadcast  addressing 
modes  and  sets  up  virtual  circuits  between  hosts. 

5.  Session  Layer  -  This  layer  contains  the  functions 
necessary  to  perform  address  conversion.  This  layer 
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Initiates,  binds,  and  terminates  the  dialogue  between 
hosts . 

6.  Presentation  Layer  -  The  presentation  layer  is  mainly 
concerned  with  converting  and  transforming  the  data 
passed  to  a  user.  This  layer  also  contains  the  file 
transfer  and  virtual  protocols. 

7.  Application  Layer  -  The  application  layer,  the  highest 
in  the  model,  is  where  the  user  interface  to  all  the 
network  services  resides.  The  lower  layers  exist  only 
to  support  this  layer. 

Many  computer  networks  with  layered  protocols  exist,  but 
their  layers  may  not  match  the  ISO  model  exactly  because 
some  of  the  ISO  functions  may  not  be  necessary.  The 
development  of  the  model  came  about  due  to  the  need  to 
standardise  network  description.  The  main  factors  that 
motivated  the  designers  were:  [Ref.  1:  p.  15] 

1.  To  create  a  layer  where  abstraction  was  necessary. 

2.  To  give  each  layer  a  well  defined  function. 

3.  To  keep  the  information  passed  between  layers  to  a 
minimum. 

4.  To  create  only  a  minimum  number  of  layers  to  decrease 
complexity. 

The  above  design  principles  are  the  same  as  the  software 
engineering  principles  of  abstraction  and  modularity.  The 
hierarchical  structure  also  compares  favorably  with  the 
structured  programming  techniques  of  software  design  that 
are  currently  being  advocated.  [Ref.  4:  pp.  58-60] 

The  ISO  OSI  model  is  shown  in  Figure  2.1.  The  main 
concepts  of  the  model  are:  [Ref.  8:  pp.  28-29] 

1.  Each  layer  only  Interacts  with  the  vertically 
adjacent  layers  through  well  defined  interfaces. 


Changes  to  any  layer  can  thus  he  accomplished  without 
changing  the  other  layers. 


2.  Two  basic  protocols  exist  per  layer.  The  first  is  the 
vertical  protocol  between  layers.  The  second  is  the 
horizontal  or  peer  protocol  between  transmitting  and 
receiving  layers  of  different  hosts  that  allows 
virtual  communication  to  occur  between  those  hosts. 
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Figure  2.1  ISO  Reference  Model 

The  flow  of  data  in  the  network  model  begins  at  the  top 
layer  of  the  sending  host.  Is  the  data  is  passed  down  the 
sending  host's  layers  additional  information,  either  bits  or 
bytes,  is  added  to  the  original  data  until  the  lowest  layer 


is  reached.  At  the  lowest  layer,  the  data  and  added 
information  is  sent  on  the  network  medium.  The  receiving 
host  then  performs  the  reverse  process  on  the  received 
information  by  passing  it  up  the  ISO  layers  until  all 
that  remains,  after  again  reaching  the  top  layer,  is  the 
original  data. 

D.  LOCAL  AREA  NETWORKS 

Computer  networks,  as  previously  mentioned,  are 
classified  as  either  Long  Haul  or  Local  Area.  Local  Area 
networks  are  characterized  by:  [Ref.  1:  p.  296] 

1.  A  length  of  no  greater  than  a  few  kilometers. 

2.  A  data  rate  in  excess  of  one  million  bits  per  second 
(1  Mbps) . 

3.  Ownership  by  a  single  organization. 

Two  techniques  of  transmission  medium  access  are  being 
considered  for  standardization  by  the  Institute  of 
Electrical  and  Electronic  Engineers  (IEEE).  The  proposed 
IEEE  Standard  632  endorses  both  the  token  passing  and 
carrier  sense  methods  of  Local  Area  Network  medium  access. 
Token  passing  consists  of  not  allowing  any  host  on  the  local 
network  to  transmit  on  the  medium  unless  it  has  possession 
of  a  token  that  is  passed  in  a  predetermined  order  from  one 
host  to  another.  The  carrier  sense  method  allows  each  host 
eaual  access  to  the  network.  This  scheme  allows  each  host 
to  detect  the  occurrence  of  any  other  transmissions  on  the 
network  and  allows  the  host  to  wait  until  the  medium  is 
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clear  before  transmitting.  If  two  hosts  try  to  transmit 
simultaneously,  they  will  each  detect  the  collision  and  wait 
an  Independent,  random  interval  before  attempting  another 
transmission.  Ethernet  is  an  example  of  a  carrier  sense 
network.  [Ref.  5:  p.  31] 

E.  ETHERNET 

Specific  details  of  Ethernet  Standard  -  Version  1.0  are: 
[Ref.  6:  p.  1] 

1.  A  data  rate  of  10  Megabits  per  second  (10Mbps). 

2.  A  maximum  host  separation  of  2.5  kilometers. 

3.  A  transmission  medium  consisting  of  a  shielded  coaxial 
cable. 

4.  A  topology  consisting  of  an  unrooted  tree. 

5.  Link  control  via  fully  distributed  peer  protocol  with 
statistical  contention  resolution. 

6.  a  message  protocol  of  variable  size  frames. 
Additionally,  it  must  be  noted  that  the  Ethernet 

Standard  does  not  provide  for  either  error  correction,  data 
encryption,  or  priority  access  to  the  network  medium.  At 
any  point  in  time,  only  one  transmission  can  occupy  the 
medium.  [Ref.  6:  p.  5] 

One  current  implementation  of  an  Ethernet  network  is  the 
E-BOS  system  developed  by  E-Systems  Incorporated.  The  E-BUS 
implementation  differs  from  the  Ethernet  Standard  in  that 
it  provides  for  transmitted  frames  to  be  acknowledged.  The 
E-BUS  also  provides  multiple  coaxial  cables  to  increase  both 
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A.  TOPOLOGY 

The  Ethernet  Local  Area  Network  Implemented  at  the 
Computer  Science  Department  of  the  Naval  Postgraduate  School 
consists  of  three  connected  systems: 

1.  The  TAX  11/790  (VMS  operating  system)  minicomputer. 

2.  An  INTELLEC  MDS  system  (CP/M-80  operating  system), 
with  attached  double  density  disk  drives,  that 
functions  as  the  input/output  processor  for  the  Intel 
IAPX  432  32  bit  microcomputer  system. 

3.  A  second  INTELLEC  MDS  system  with  attached  single 
density  disk  drives.  (Also  CP/M-80) 

This  thesis  presents  the  software  necessary  to  allow  the 
above  CP/M-80  based  systems  to  communicate  via  the  network. 
The  software  necessary  to  allow  the  VAX  11/780  the  same 
communication  capabilities  was  written  by  Lt.  Thawip 
Netniyom  [Ref.  9]. 

B.  HARDWARE 

All  the  hardware  needed  to  implement  the  above  network 
was  provided  by  the  Interlan  Corporation.  The  hardware 
needed  to  connect  each  INTELLEC  system  to  the  network  was 
installed  as  follows:  [Ref.  7:  pp.  7-13] 

1.  The  base  port  address  switches  and  the  priority  and 
interrupt  jumpers  were  set  on  the  NI3010  Ethernet 
controller  board  as  shown  in  Figure  3.1. 

2.  The  NI3010  was  then  inserted  into  the  INTELLEC  system 
in  an  odd-numbered  slot  in  the  Multibus. 
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3.  The  NT10  transceiver  was  installed  across  the  Ethernet 
coaxial  cable  and  the  cabling  that  connects  the  NT10 
to  the  NI3010  was  connected  as  shown  in  Figure  3.2. 

The  above  mentioned  hardware  provides  the  ISO  layer  one 

and  two  functions.  The  Physical  Layer  functions  provided  by 

the  transceivers  and  connecting  cables  are:  [Ref.  7:  p.  2] 

1.  Support  of  a  10  Mbps  data  rate. 

2.  Bit  stream  generation  through  Manchester  encoding. 

3.  Media  access  control. 


Figure  3.1  NI3010  Switch  and  Jumper  Locations 

The  Data  Link  Layer  functions  provided  by  the  NI3010 
board  are:  [Ref.  7:  p.  2] 

1.  Data  encapsulati on/iecapsulation  (framing). 

2.  Address  recognition. 

3.  Transmit  and  receive  data  link  management. 
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The  NI3010  operates  both  as  a  slave  to  the  host  computer 
and  as  a  master  processor  when  controlling  the  direct  memory 
access  (DMA)  operations  between  the  NI3010  buffers  and  the 
host  computer's  memory.  The  transmit  function  is  command 
driven  by  the  host,  while  the  receive  function  is  interrupt 
driven.  Control  of  the  NI3010  by  the  host  is  accomplished 
by  programming  the  host  to  load  commands,  addresses,  byte 
counts  and  interrupt  enable  values  into  registers  onboard 
the  NI3010.  [Ref.  ?:  pp.  69-75] 


Appendix  3.  After  issuance  of  any  command,  the  host  must 
check  for  a  value  in  the  Command  Status  Register.  The 
execution  of  the  command  only  occurs  after  this  read 
operation  has  been  accomplished.  Tue  details  of  the  read 
operation  are  as  follows:  [Ref.  ?:  pp.  70-72] 

1.  The  host  issues  a  command. 

2.  The  host  checks  the  Interrupt  Status  Register  to 
check  if  the  least  significant  hit  is  a  one.  If  the 
least  significant  hit  is  a  one,  then  the  host  reads 
the  value  in  the  command  Status  Register. 

3.  If  the  value  in  the  Command  Status  Register  is  a  zero 
then  the  command  executed  successfully.  After  the 
host  has  issued  a  Load,  Transmit,  and  Send  command, 

a  value  of  one  is  also  considered  a  success.  Any 
other  value  represents  a  failure.  A  listing  of 
Command  Status  Register  values  is  located  in  Apnendix 
C. 

The  Command  Status  Register  must  also  be  read  at  the 
beginning  of  any  program  written  to  control  the  NI3010. 

This  register  must  be  read  at  this  time  because  the  NI3010 
automatically  performs  it's  built-in  diagnostic  routines 
each  time  the  board  is  powered  up  or  reset.  The  automatic 
testing  places  a  value  in  the  Command  Status  Register  that 
must  be  read  to  clear  the  register  before  any  other  commands 
can  be  given  to  the  NI3010. 

The  NI3010  transmit  function  is  accomplished  in  the 
following  manner:  [Ref.  7:  p.  85] 

1.  The  host  loads  a  block  of  memory  in  the  format  shown 
in  Appendix  D  for  each  frame  to  be  transmitted. 

2.  The  host  loads  the  three  NI3010  address  registers  with 
the  first  address  of  the  host  memory  block. 


3.  The  host  then  loads  the  two  NI3010  byte  count 
registers  with  the  number  of  bytes  in  the  data  bloc*. 

4.  The  host  then  enables  a  Transmit  DMA  Done  (TDD) 
interrupt  by  writing  a  value  of  6  Hex  into  the 
Interrupt  Enable  Register. 

5.  The  NI3010  interrupts  the  host  once  the  memory  bloc* 
has  been  transferred  into  the  NI3010  transmit  buffer. 

6.  The  host  then  enables  a  Receive  Bloc*  Available  (R3A) 
interrupt  by  loading  the  Interrupt  Enable  Register 
with  a  value  of  4  Hex.  This  step  allows  any  pending 
received  frames  to  be  handled. 

7.  The  host  then  commands  the  NI3010  to  send  the  frame 

by  writing  a  value  of  29  Hex  into  the  Command  Register 
and  subsequently  reading  the  Command  Status  Register 
as  previously  discussed. 

The  NI3010  receive  function  is  accomplished  as  shown 
below:  [Ref.  7:  p.90] 

1.  The  host  enables  an  RBA  interrupt  as  shown  above. 

2.  The  NI3010,  upon  receiving  a  frame,  interrupts  the 
host  to  notify  it  of  frame  receipt. 

3.  The  host  then  writes  a  value  of  0  Hex  into  the 
Interrupt  Enable  Register  to  disable  any  other 
NI3010  interrupts. 

4.  The  host  writes  values  into  the  three  NI3010  address 
registers  to  inform  the  NI3010  where,  in  host  memory, 
to  transfer  the  data. 

5.  The  host  then  loads  the  two  NI3010  byte  count 
registers. 

6.  The  host  then  enables  the  DMA  transfer  of  the  data  by 
writing  a  value  of  7  Hex  into  the  Interrupt  Enable 
Register. 

7.  The  NI3010  then  interrupts  the  host  upon  completion 
of  the  transfer.  The  format  of  received  data  in  the 
host  memory  is  shown  in  Appendix  E. 

The  above  steps  are  repeated  for  each  received  frame. 

The  host  is  then  responsible  for  whatever  further  ouerations 


must  be  done  with  the  data.  For  example,  the  data  could  be 
displayed  on  the  console  or  written  to  a  disk  file. 

The  N 13010  also  has  built-in  test  features  and  can  also 
support  the  concepts  of  broadcast  and  multicast  trans¬ 
mission.  Broadcast  transmission  allows  a  host  to  transmit 
to  all  other  hosts  simultaneously,  while  multicast  allows 
transmission  to  only  a  few  selected  hosts. 

C.  SOFTWARE 

The  software  necessary  to  implement  ISO  layers  three 
through  seven  was  originally  written  entirely  in  8080 
Assembly  Language.  The  final  version  of  the  communication 
program  consists  of  PL/I-80  modules  that  perform  the 
functions  of  ISO  layers  six  and  seven  and  an  Intel  8080 
Assembly  Language  module  that  performs  the  functions  of  ISO 
layers  two  and  three.  The  ISO  layer  two  functions  performed 
by  the  software  supplement  the  functions  of  this  layer 
performed  by  the  NI3010.  The  primary  goals  of  the  software 
were : 

1.  To  allow  users  to  run,  if  necessary,  test  programs 
that  will  verify  the  functioning  of  the  hardware. 

2.  To  allow  the  INTELLSC  systems  to  communicate  via  the 
Ehternet  to  any  other  hosts  connected  to  the  network. 

1 •  Test  Programs 

The  basic  software  design  process  began  by  first 
determining  the  major  functional  divisions  or  modules  into 
which  a  program  should  be  divided.  A  primary  consideration. 
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since  implementation  using  the  NI3010  is  interrupt 
dependent,  was  a  simple  interrupt  handling  routine.  This 
routine  was  the  basis  of  the  first  wording  test  program, 
ETHTESTA.  The  interrupt  handling  module  is  the  basis  around 
which  all  the  succeeding  programs  were  written.  ETHTESTA, 
an  8060  Assembly  Language  program,  commands  the  NI3010  to 
perform  built-in  tests,  one  of  which  sends  test  data  to 
the  NI3010  Transmit  buffer  and  back  through  the  NI3010 
Receive  Data  Register.  This  process  is  called  the  NI3010 
Module  Interface  Loopback  mode.  Use  of  this  test  mode  does 
not  permit  the  interrupt  handling  to  be  done  in  the  same 
manner  as  a  normal  communication  program,  nor  does  this  mode 
allow  data  to  be  sent  onto  the  network.  The  source  code 
listing  of  ETHTESTA . ASM  is  located  in  Appendix  P. 

A  process  of  gradual  enhancement  was  then  applied  to 
upgrade  ETHTESTA  into  a  program  that  utilized  the  complete 
interrupt  capability  as  that  of  a  functional  communication 
program.  The  follow-on  test  program,  ETHTESTB,  performs  all 
the  tests  of  ETHTESTA  and,  additionally,  sends  a  small  block 
of  data  to  itself  via  the  network  using  the  NI3010  Internal 
Loopback  mode.  A  source  code  listing  of  ETHTESTB. ASM  can  be 
found  in  Appendix  S. 

2.  Communication  Between  Network  Hosts 

The  test  programs  discussed  previously  involved  the 
utilization  of  only  one  INTSLLEC  system  with  installed 
Ethernet  hardware.  The  next  logical  step  was  to  again 
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upgrade  the  software  to  allow  the  INTELLEC  systems  to 
communicate  via  the  network. 

In  order  to  give  hosts,  especially  of  different 
architectures  and  operating  systems,  the  ability  to 
communicate  via  a  network  involves  the  development  of 
higher  level  protocols  to  handle  any  differences  that  may 
arise  due  to  the  above  factors.  Specifically,  differences 
between  hosts  related  to  file  storage  and  frame  transmission 
speed  are  the  kind  of  issues  that  must  be  handled  by  the  use 
of  protocols.  In  an  Ethernet  network,  the  nature  of  each 
frame  sent  onto  the  network  must  also  be  encoded  so  that 
the  receiving  host  can  determine  what  further  operations 
must  be  performed  on  the  received  frame  data. 

The  primary  operating  system  file  storage  mismatch 
in  this  network  implementation  occurred  between  the  VAX/VMS 
and  the  CP/M-80  operating  systems.  The  VAX  stores  text 
files  as  variable  length  records  by  text  sentence.  The 
VAX,  also,  does  not  explicitly  store  the  carriage  return  and 
line  feed  characters  in  the  record.  On  the  other  hand,  the 
CP/M-80  operating  system  stores  all  the  characters, 
including  the  carriage  return  and  line  feed,  in  one  long 
continuous  file.  This  file  storage  incompatability  was 
resolved  by  adding  format  conversion  routines  to  both  the 
VAX  and  INTELLEC  software  to  convert  the  data  prior  to 
transmission  on  the  network. 
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A  transmission  versus  reception  speed  mismatch  was 
discovered  in  the  early  testing  between  the  VAX  and  the 
INTSLLFC  systems.  The  VAX  can  send  data  much  faster  than 
the  INTELLFC  systems  can  receive  it.  The  solution  to  this 
problem  was  to  add  a  "stop-and-wait"  [F.ef.  Is  p p.  143-145] 
protocol  to  the  ISO  layer  two  functions  already  performed 
by  the  NI3010.  This  protocol  was  implemented  in  software 
and  assures  the  sending  host  that  the  last  frame  sent  was 
correctly  received.  This  protocol  also  prevents  a  faster 
seeder  from  Inundating  a  slower  receiver. 

The  frame  encoding  protocol  adopted  for  our  network 
is  as  shown  in  Table  3.1.  These  codes  are  written  into  the 
two  Type  Field  bytes  in  the  transmit  data  block  as  shown  in 

Table  3.1  Type  Field  Protocol 


Type 
Byte  1 

Field 
!  Byte  2 

!  Interpretation  at  Receiver 

1 

00E 

00f? 

Message  frame 

ee 

0F 

Last  frame  of  terminal  reply 

00 

FF 

Acknowledge  frame 

0F 

00 

File  transfer-first  frame 

0? 

01 

File  transfer-middle  frame 

0F 

FF 

File  transfer-last  frame 

Appendix  D.  The  receiving  hosts  interpret  these  two  bytes, 
once  the  data  block  is  in  their  memory  as  shown  in  Appendix 
S,  to  determine  what  operations  must  be  dene  to  the  lata. 
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The  other  protocol  adopted  was  to  use  fixed  data 
block  sizes  per  Ethernet  frame.  The  choices  available  to 
the  user  are: 

1.  128  Bytes.  (Must  be  used  for  all  file  transfers) 

2.  256  Bytes. 

3.  512  Bytes. 

4.  1024  Bytes. 

5.  1500  Bytes.  (tJsed  in  VAX  terminal  service  mode) 

A  set  of  programs,  written  exclusively  in  8030 
Assembly  Language,  was  first  developed  to  send  short,  single 
sentence  messages  from  one  INTELLEC  system  to  another  using 
the  above  protocols.  Next,  the  file  transfer  modules  were 
developed  and  tested.  Throughout  the  entire  process,  close 
attention  was  paid  to  maintaining  software  modularity  that 
was  analogous  to  the  functional  modularity  of  the  ISO  model. 
Software  modules  that  compared  directly  to  ISO  layers  were 
maintained  as  separate  modules  and,  whenever  possible, 
rewritten  in  PL/I-80,  a  high  level  language.  The  final 
communication  program  consists  of  three  PL/I-80  modules  and 
one  8080  Assembly  Language  module.  These  modules  were 
linked  together,  using  LINE-80,  into  the  final  product.  The 
final  program,  ETHERNET.COM,  contains  calling  sequences  that 
directly  reflect  the  ISO  CSI  model  structure  as  shown  in 
Table  3.2.  The  source  code  for  all  modules  can  be  found  in 
Appendices  H  through  X.  Modules  were  not  written  for  ISC 
layers  four  and  five  because  these  layers  are  primarily 


30 


concerned  with  Long  Haul  network  functions  that  are  unneedei 
by  our  network.  Modules  RECEIVE,  SEN  DFPA.M ,EECFRAM,T?.MS(J  and 
AWAIT  are  contained  in  the  assembly  language  module  because 
the  functions  they  are  reouired  to  perform  are  more 
efficiently  programmed  in  that  language.  The  actual  calling 
seouence  for  the  transmit  process  occurs  as  follows: 

1.  ETHERNET:  Asks  for  user  to  select  type  of  network 
service  desired  and  calls  SEND  ATA . 

2.  SENDATA:  Encodes  the  transmit  type  field  for  the  user 
selected  service  and  calls  internal  routines  to  control 
the  transmission.  This  module  calls  SENDFRAM  as  each 
frame  is  ready  for  sending. 

3.  SENDFRAM:  This  module  sends  each  frame  onto  the  network 
then  calls  AWAIT  to  wait  for  the  acknowledge  frame  to 
arrive  from  the  destination  host. 


Table  3.2  Comparison  of  Program  Modules  and  the  ISO  Model 


1.  ETHERNET:  The  user  selects  the  receive  mode  of  network 
service  and  this  module  calls  RECEIVE. 

2.  RECEIVE:  This  module  waits  in  a  loop  for  the  module 
RECERAM  to  receive  a  frame  from  the  network.  Once 
the  receive  data  is  placed  in  host  memory  by  RECERAM, 
a  flag  is  set  and  RECEIVE  calls  RE C DATA . 

3.  RECDATA:  This  module  decodes  the  type  field  of  the 
received  frame  and  calls  Internal  modules  that 
handle  each  different  type  of  received  data  and,  as 
part  of  this  process,  calls  TRMSG  which  send  the 
acknowledge  frame  back  to  the  source. 

The  four  major  functions  that  the  final  program 
performs  are: 

1.  Transmission  of  files  or  messages  to  any  other  network 
hosts . 

2.  Reception  of  files  or  messages  from  any  other  hosts. 

3.  The  ability  to  become  a  terminal  of  the  VAX  11/792 
via  the  Ethernet. 

4.  The  ability  to  send  specially  coded  messages  to  the 
VAX  to  command  it  to  either  upload  or  download  files. 


D.  OPERATION 

The  operation  of  test  programs,  ETHTESTA  and  ETHTESTB, 
consists  primarily  of  invoking  either  program  using  normal 
CP/M-00  procedures  and  following  the  directions  presented  by 
the  program.  Detailed  instructions  for  use  of  the  test 
programs  can  be  found  in  Appendix  L. 

Operation  of  the  communication  program,  ETHERNET,  also 
involves  invoking  the  program  using  normal  CP/M-80 
procedures  and  following  the  menus  presented  by  the  program.  ' 
Detailed  operating  instructions  for  the  use  of  the  final 
communication  program  are  located  in  Appendix  M. 
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E.  PERFORMANCE 


The  communication  program  provides  faster  data  transfer 
between  network  hosts  than  currently  employed  methods. 

Table  3.3  demonstrates  the  improved  performance  realized 
in  transferring  data  between  single  and  double  density 
INTELLEC  systems. 

TABLE  3.3  Performance  Comparison  for  Lata  Transfers 
Between  Single  and  Double  Density  INTELLEC  Systems 


{Software  Used  !  File  Size  {  Time  |  Data  Rate(bps)  i 
{ (CP/M— 80)  !  (KBytes)  i  (Min:Sec){  Medium  !  Effective! 

SDXFER  136  22:45  9600  79? 


ETHERNET  136  3:30  10M  5180 


The  data  rate  of  the  medium  is  the  rate  at  which  data  is 
actually  sent  on  whatever  medium  is  being  utilized.  The 
effective  data  rate  is  the  number  of  bits  of  useful  data 
that  was  sent  divided  by  the  total  elapsed  time  of  the  data 
transfer.  Data  transfers  between  INTELLEC  systems  were  not 
the  only  ones  that  showed  a  significant  improvement  over 
methods  that  were  previously  utilized.  Transfers  of  data  to 
and  from  the  FAX  11/780  were  also  accomplished  signif lean tly 
faster  as  shown  in  Table  3.4. 

The  below  presented  data  shows  the  improved  performance 
of  data  transfers  when  the  Ethernet  network  is  employed. 
Lastly,  a  series  of  experiments  was  performed  to  investigate 


the  performance  limits  of  data  transmission  and  reception 
of  the  CP/M-30  based  programs.  The  conditions  of  the 

Table  3.4  Performance  Comparison  of  Transfers  Between 
VAX  11/780  and  INTELLEC  Systems 


'Software  Utilized 
! (VAX  to  INTELLEC) 

(File  Size  { 

!  (EBytes )  i 

Time 

(Min :Sec) 

i  Data 

'Medium 

Rate ( bps ) i 
i  Effective ' 

I APX  432  Pkg 

136 

6:40 

9600 

2720 

ETHERNET 
(To  disk  file) 

136 

2:05 

10M 

8704 

ETHERNET 

(To  memory  buffer) 

136 

1:35 

10M 

11452 

experiments  were: 

1.  The  stop-and-wait  protocol  was  not  employed. 

2.  The  frames  would  be  sent  as  fast  as  possible  using  the 
minimum  amount  of  8080  Assembly  Language  code. 

3.  The  receiver  would  not  perform  any  extra  operations  on 
received  data  other  than  that  done  by  the  MI3010.  No 
data  was  either  written  to  any  disk  files  or  displayed 
on  the  console. 

4.  Testing  was  done  on  data  block  sizes  of  128  and  1500 
bytes  per  ETHERNET  frame. 

Testing  was  performed  between  two  INTELLEC  systems  and 
and  data  was  collected  for  both  the  above  data  block  sizes. 
The  results  of  the  experiments  are  shown  in  Table  3.5. 

As  shown  below,  the  highest  data  rate  achieved  was  1.764 
Megabits  per  second.  The  time  taken  in  each  6.8  millisecond 
period  was  accounted  for  as  follows: 

1.2  nsec  Actual  Data  Transmission  of  1500  Bytes 
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0.5  msec  Iastruction  Execution  to  Restart  Transmit 

3.5  msec  DMA  Operation  of  1500  Bytes  at  428  KBps  ra 

1.6  msec  Execution  Time  of  NI3010  Send  Command 

6.8  milliseconds  total 


Table  3.5  Maximum  Performance  Data 


Data  Bytes  per  Frame  Frame  Transmission  !  Data  Rate 

i  Interval  i  (Effective) 


128  2.7  Milliseconds  379  Kbps 

1500  6.8  Milliseconds  1.764  Mbps 


The  conclusions  reached  about  the  Ethernet  performance 


eres 

1.  The  transmission  speed  is  limited  by  the  NI3010 
controller  itself.  The  NI3010  Send  command  required 
longer  to  execute  than  either  the  actual  transmission 
time  of  the  data  or  the  instruction  execution  during 
each  transmit  cycle. 

2.  Although  the  NI3010  literature  claims  a  DMA  data  rate 
of  1  MBps,  the  board  could  only  achieve  a  rate  of  428 
KBps.  This  limitation  could  be  due  to  the  method  in 
which  the  NI3010  onboard  microprocessor  is  utilized. 
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IV.  CONCLUSIONS 


This  thesis  has  shown  that  functional  Local  Area  Network 
communication  software  can  he  structured  according  to  the 
ISO  OSI  network  model.  This  thesis  has  also  shown  that 
the  performance  of  the  Ethernet  substantially  reduces  the 
transfer  time  of  data  between  connected  hosts  when  compared 
to  methods  previously  employed.  The  single  to  double 
density  transfer  rate  improved  by  a  factor  of  7.5  while  the 
VAX  to  INTELLSC  transfer  rate  improved  by  a  factor  of  3.2. 
The  data  also  shows  that  effective  data  rates  can  be 
improved  by  faster  host  processors,  but  that  hosts  will  be 
limited  by  the  rate  at  which  the  NI3010  can  transfer  data 
to  and  from  host  memory  and  then  send  it.  INTELLEC  hosts 
are  also  limited  in  actual  network  use  by  the  rate  at  which 
data  can  written  to  or  read  from  disk  drives. 

An  improvement  to  the  effective  data  transmission  rate 
might  be  realized  by  synchronizing  the  speed  between  sending 
and  receiving  hosts  by  some  method  other  than  the  stop-and- 
wait  protocol  utilized  in  this  thesis.  The  transmission 
rate  performance  degradation  noted  above  is  only  aggravated 
by  using  the  stop-and-wai t  protocol. 

The  software  written  for  this  thesis  can  be  adapted  to 
run  on  an  Intel  8086  based  system  by  following  the  steps 
listed  below: 
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The  PL/I-90  source  code  files  can  be  directly  compiled 
using  the  PL/I-86  compiler. 

The  8090  Assembly  Language  source  code  can  either  be 
hand-translated  or  translated  by  software  such  as  the 
program  XLT-96  into  8086  Assembly  Language  source 
code.  It  should  be  noted  that  there  are  differences 
between  the  9080  and  9096  processors  that  have  to  do 
with  how  interrupts  are  handled  that  will  reauire  some 
rewriting  of  the  converted  code. 
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APPENDIX  A 


NI3010  COMMAND  LISTING 


Code(Hex)  i  Command  Function  ! 

Returned  Code(Hex) 

01 

Set  Module  Interface 
Loopback 

00 

02 

Set  Internal  Loopback 

00 

03 

Clear  Loopback 

00 

04 

Set  Promiscuous  Mode 

00 

05 

Clear  Promiscuous  Mode 

00 

06 

Set  Receive  on  Error 

Mode 

00 

07 

Clear  Receive  on  Error 
Mode 

00 

08 

Go  Offline 

00 

09 

Go  Online 

00 

0A 

Run  Onboard  Diagnostics 

Diagnostic  Codes  as 
shown  in  Appendix  C 

18 

Report/Reset  Statistics 

00 

19 

Report  Collision  Delays 

00 

2£ 

Load  Transmit  Data 

00,05 

29 

Load/Transmit/Send  Data 

00,01,03,05,06,09,03 

2A 

Load  Group  Addresses 

00 , 05 ,0A 

2B 

Delete  Group  Addresses 

00,05, 0A 

3F 

Reset 

00 

Notes : 

Promiscuous  Mode  receives  all 
Receive  on  Error  receives  even 

network  traffic, 
bad  frames. 

APPENDIX  B 


NI3010  REGISTER  LISTING 


Register  ! 

Command 

Status( Command ) 

Transmit  Data 
Receive  Data 
Status( Interrupt ) 
Interrupt  Enable 
Extended  Bus  Address 
Si*h  Bus  Address 
Low  Bus  Address 
3i«h  Eyte  Count 
Low  Bus  Address 

Note:  The  base  port  address  is 
the  NI3010. 


Location 

Base  Port  Address 

Base 

Port 

Address* 

01H 

Base 

Port 

Address-^ 

023 

Base 

Port 

Address* 

03H 

Base 

Port 

Address* 

053 

Base 

Port 

Address* 

083 

Base 

Port 

Address* 

09H 

Base 

Port 

Address* 

0AH 

Base 

Port 

Address* 

033 

Base 

Port 

Address* 

0C3 

Base 

Port 

Address* 

0DE 

set  on  the  DIP  switch  onboard 
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APPENDIX  C 


NI3010  STATUS  RES  I STEP  CODES 


1.  Normal  Mode: 


Code(Hex) 

1  Command  Status  Result 

00 

Success 

01 

Success  with  Retries 

02 

Illegal  Command 

03 

Inappropriate  Command 

04 

Failure 

05 

Buffer  Too  Large 

06 

Frame  Too  Small 

0e 

Excessive  Collisions 

0A 

Buffer  Alignment  Error 

2.  Diagnostic  Mode: 

CodeOex) 

!  Returned  Diagnostic  Result 

00 

Success 

01 

NM10  Microprocessor  Memory 
Checksum  Error 

02 

NM10  DMA  Error 

Transmitter  Error 
Receiver  Error 
Loopback  Failure 


APPENDIX  D 

TRANSMIT  DATA  FORMAT 


7 


BAR-*- 

0  { 
i 

Destination 

Address  A 

.  (Byte 

1) 

4- 

1 

1  | 

1 

Destination 

Address  B 

.  (Byte 

2) 

1 

2  ! 

1 

Best 

.  Addr. 

C. 

( Byte 

3) 

+ 

f 

3  ! 

I 

Dest 

.  Addr. 

B. 

(Byte 

4) 

+ 

1 

4  ! 

1 

Best 

.  Addr. 

E. 

( Byte 

5) 

4» 

1 

5  ! 

1 

Best 

.  Addr. 

y. 

(Byte 

6) 

4- 

6  ! 
i 

Type 

Field 

<7: 0> 

(Byte 

1) 

•* 

i 

7  ! 

1 

Type 

Field 

<15 :8> 

(Byte 

2) 

4- 

1 

8  ! 

1 

Bata 

-First 

Byte 

I 

1 

1 

1 

1 

1 

1 

1 

1 

! , 

• 

• 

• 

• 

BAR+BCR-1 


Bata-Last  Byte 


APPENDIX  E 


RECEIVE  DATA  FORMAT 


BAR+  0 
+  1 
+  2 
+  3 
+4-9 
+10-15 
*16 
+  1? 
+ie 


Frame  Status 


Always  0 

Frame  Length  <?:0> 

Frame  Length  <15:8> 
Destination  Address(  6  Bytes) 
Source  Address  (  6  Bytes) 

Type  Field  <?:0> 

Type  Field  <15:8> 

Data-First  Byte 


3AR+FRLTH+3 


Data-Last  Byte 
CRC  <24:31> 

CRC  <16 :23> 

CRC  <8 : 15> 

CRC  <0:7> 


Note:  Frame  length  is  counted  from  first  destination  address 
byte  up  to  and  including  the  last  CRC  byte  consecutively. 
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APPENDIX  F 


SOURCE  CODS  OF  PROGRAM  ETHTESTA. ASM 


***3|^#*:^****:(^********#*****4**$*3iC*«****«  **#**$*$#$*$**#** 
t***********#*******#******#*****##*****#**##*###******#*#* 

ETHERNET  LEVEL  ONE  TEST  PROGRAM— VERSI ON  1.13 

PROGRAM  FILE  NAME:  ETHTESTA.COM-  INVOKE  COMMAND:  ETHTESTA 

PROGRAM  FUNCTION: (RUN  ON  8080  BASED  MDS  SYSTEM) 

COMMANDS  THE  NI3010  BOARD  TO  GO  ONLI NS, PERFORM  ITS' 
DIAGNOSTIC  TESTS  THEN  TRANSFERS  A  42  BYTE  DATA  BLOCK  FROM 
ADDRESS  0608  HEX  TO  ADDRESS  0812  HEX  VIA  TEE  MODULE  INTER¬ 
FACE  LOOPBACK  MODE.  TRANSFERRED  DATA  IS  THEN  DISLPAYED  ON 
THE  CONSOLE.  THESE  TESTS  ONLT  REQUIRE  THE  NI3010  BOARD. 

THE  CABLE  TO  THE  TRANSCEIVER  NEED  NOT  BE  CONNECTED. 

TESTS  PERFORMED: 

1. )  ONBOARD  DIAGNOSTIC  SELF  TEST 

2. )  MODULE  INTERFACE  LOOPBACK  TEST-VERIFIES  THE 

FUNCTION  OF  THE  NI3010  LESS  THE  RECEIVE 
BUFFER . 

NI3010  ETHERNET  BOARD  CONFIGURATION: 

1. )  JUMPER  SET  TO  INTERRUPT  LEVEL  5 

2. )  BASE  PORT  ADDRESS  SWITCHES  SET  TO 

1011  (00B0H). 

3. )  PARALLEL  PRIORITY  TO  AN  ODD  NUMBERED 

MULTIBUS  SLOT. 

ORIGINAL  PROGRAM:  03/10/83 
LAST  REVISION:  04/30/83 
WRITER:  MARK  D.  STCTZS?. 

ADVISOR:  PROF.  U.R.  KODRES 

MAIN  PROGRAM: 

CRG  100H 

J  NI3010  REGISTER  PORT  ADDRESSES: 


CP  EG 

ECU 

00B0?;CMD  REG  LOCATION 

SREG 

EOU 

00B1H;CMD  STATUS 

REG  LOCATION 

ISRSG 

EOU 

00B5E; INTERRUPT 

STATUS  REG 

I SR  EG  EQU  00B8E* INTERRUPT  ENABLE  REG 

SBAR  EQU  0039HJ EXTENDED  BASE  ADDR  REG 

EBAR  EQU  00BAEJHIGH  BASE  ADDR  REG 

LBAR  EQU  0033E? LOW  BASE  ADDR  REG 

HBREG  EQU  00BCE;EIGH  BYTE  COUNT  REG 

LB REG  EQU  00BDE i LOW  BYTE  COUNT  REG 

{OTHER  NEEDED  ADDRESSES: 

BDOS  EQU  0005EIBDOS  ENTRY  POINT 

CEREG  EQU  0700HJCOPY  OF  INTERRUPT  ENABLE  REG 

LASTM  EQU  0900H*  ADDP  OF  INIT  STACK  PTR 

;  *#3Cci)E#***###«9****itc**#************#*#***#:tM|t*$#**?**3i|t###***#$ 

; NEEDED  BDOS  COMMANDS: 

CONSIN  EQU  01Hi CONSOLE  CHAR  INPUT 

CONSOUT  EOU  02HJ CONSOLE  CHAP.  OUTPUT 

PSTRING  EQU  09E{?PINT  TEXT  STRING 

•  *********************  *********************  ****  ***#*#**#*#*» 

J CLEAR  COMMAND  STATUS  REGISTER  3Y  READING 
IN  SRSG 

;  i****#*****#********#****#*******#***#***#*****?*#:***#*##*:** 

{LOAD  JUMP  INSTRUCTION  FOR  INTERRUPT  HANDLER:  ( I MT  5) 

MV I  A.0C3HJJMP  INST  CODE 

ST A  0028H  : LOAD  IT  IN  ADDR  0028  HEX 

LX I  H, INTHDL 

SHLD  0029H 

;  ^tt***#***#*####*#*##******#******:******#*  ***************** 

{OUTPUT  INITIAL  MESSAGE: 

LXI  D , BMSG 

MVI  C, PSTRING 

CALL  BDOS 

CALL  CRLF 

JSET  U?  INTERRUPT  CONTROL: 

MVI  A.012H 

OUT  0FDH 

MVI  A.0DFH;  ENABLE  INTERRUPT  5-STHERNET  BOARD 

OUT  0FCH 

{LOAD  TRANSMIT  DATA  BLOCK-FIRST  3  BYTES  ASSIGNED  BY  XEROX: 
MVI  A.02H 

ST A  0P00H 

MVI  A , 0?H 

STA  0601H 

MVI  A , 01H 

STA  0602H 

{LOAD  INTERLAN  ASSIGNED  LAST  3  BYTES  HERE: 

DESTINP  CALL  CRLF 

LXI  D.DMSG0 

MVI  C.PSTPING 

CALL  BDOS 

CALL  CRLF 

LXI  D.DMSGl 
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EADDR1 


DADDR2 


MVI  C.PSTRING 

CALL  BDOS 

CALL  CRLF 

LX I  D.BMSG2 

MVI  C.PSTRING 

CALL  BEOS 

CALL  CRLF 

MVI  C , CONSINJREADY  FOR  CHOICE 

CALL  3ECS 

CPI  31S 

JZ  EAEER2 

CPI  32H 

JZ  DADER1 

CALL  CRLF 

LX I  E.EMSG3 

MVI  C.PSTPING 

CALL  BEOS 

CALL  CRLF 

JMP  EESTINP 

CALL  CRLF  JIF  ADER  00-03-EA  SELECTEE  LOAD  IT: 

MVI  A.00H 

STA  06031 

MVI  A.03H 

STA  0604H 

MVI  A.0EAH 

STA  060 5H 

JMP  AEEIN 

CALL  CRLF  JIF  ABER  00-04-0A  SELECTEE  LOAD  IT: 
MVI  A ,00E 

STA  0603H 

MVI  A,  04* 

STA  0604H 


MVI  A ,0AH 

STA  0605H 

; LOAE  TYPE  FIELD-  2  BYTES: 


AEEIN  MVI  A  ,00H 

STA  0606H 

MVI  A , 00H 

STA  0607H 

?NOTE:FOR  THIS  TEST  THE  ACTUAL  DATA  IS  IN  ADDRESSES 
» 0608-0632EEX  FOR  TRANSMISSION 


•**#*###**##*  41*4141  ************#***$*  #9$*#*******#**#  v#*#*#***: 
» READ  IN  THE  TEST  DATA: 


MVI 

C  .PSTRIN 

LX  I 

D.FMSG 

CALL 

BEOS 

CALL 

CRLF 

CALL 

CONIN 

CALL 

CRLF 

GO  ONLINE  UPON 

POWER  UP: 

LX  I 

SP.LASTM 

45 


El 

MV I  A,09HiCMD  TO  GO  ONLINE 

OUT  CREG 

LXI  D.OLMSG 

MV  I  C.PSTRING 

CALL  BDOS 

CALL  CRL? 

CALL  READ 

,*RUN  ONBOARD  DIAGNOSTICS  TEST: 


MVI 

A.0AH?  CODE  FOR  SELF  TEST  COMMAND 

OUT 

CREG 

LXI 

D.STMSG 

MVI 

C.PSTRING 

CALL 

3DOS 

CALL 

CRL? 

- 

CALL 

READ 

RUN 

MODULE  INTERFACE  LOOPBACK  TEST: 

MVI 

A.09F;  GO  BACK  ONLINE 

OUT 

CREG 

LXI 

D.OLMSG 

MVI 

C.PSTPING 

CALL 

BDOS 

CALL 

CRL? 

CALL 

READ 

LOAD 

1  INTERRUPT 

ENABLE  REGISTERS.  SET  TO  RECEIVE 

DATA. 

DI 

LXI 

H.CEREG 

MVI 

A.04H 

MOV 

M.A 

OUT 

IEREG 

El 

RUN 

COMPLETE  MODULE  LOO?  TEST: 

MVI 

A.01H;  ENTER  MODULE  LOOP  TEST 

MODE 

OUT 

CPEG 

LXI 

D.MLMSG 

MVI 

C.PSTRING 

CALL 

BDOS 

CALL 

CRLF 

CALL 

RE‘D 

CALL 

TRMSGJTRANSMIT  TEST  DATA  BLOCK 

LXI 

D.TRCMSG 

MVI 

C.PSTRING 

CALL 

BDOS 

CALL 

CRLF 

CALL 

READ 

******************  TEST  ONLY-MODULE  LOOPBACK  ************** 

THIS  PATCH  ENABLES  DATA  TRANSFER  TO  HOST  MEMORY 

IN  TEST 

DI 

MVI 

A.07H 

LXI 

H.CEREG 

MOV 

M.A 

45 


OUT  IEREG 
El 

•  *********#****#******#$#*****#*#*#*(#*#$*##*>)(***«*##*###*#$# 


MVI  A ,03R»  CLEAR  LOOP  TEST  MODE 

OUT  CREG 

LX I  D,CLMSG 

MVI  C.PSTRING 

CALL  BDOS 

CALL  CRL? 

CALL  READ 

;go  back  on-line 


MVI  A,09H 

OUT  CREG 

LXI  D,OLMSG 

MVI  C , PSTRING 

CALL  BDOS 

CALL  CRLF 


CALL  READ 

J DISPLAY  DATA  TRANSFERRED  VIA  ETHERNET  BOARD  TO  CRT: 

MVI  C  ,PSTRING 

LXI  D.LMSG 

CALL  BDOS 

CALL  CRLF 

CALL  CONOUT 

jmp  0  {return  to  operating  system 

{  END  of  main  program 

;  :Mu|^*:M‘*****3M***#*¥*****##)M‘*****#*********:e'***#*£*’C‘#*£*#*' 


;  iMu****************************** ##************#$*#*###$**#* 

;  TRANSMIT  SUBROUTINE: 

TP.MSG  DI 

;LOOP  UNTIL  INTERRUPT  ENABLE  REGISTER  =0  OR  4: 


LOOP 

LXI 

H.CFREG  {  CHECK  IF  NI3010  BUSY 

MOV 

A,M 

CPI 

00H 

JZ 

CONT 

CPI 

04E 

JZ 

CONT 

El 

JMP 

LOO? 

CONT 

DI 

{DISABLE  INTS.  AND  CHECK  AGAIN 

LXI 

H.CSREG 

MOV 

A ,  M 

CPI 

00H 

JZ 

CONTI 

CPI 

04H 

JZ 

CONTI 

SI 

JMP 

LOO? 

CONTI 

MVI 

A  ,00E 

LXI 

H.CSREG;  DISABLE  THE  NI3013  INTERRUPTS 

MOV 

M ,  A 
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K> 


OUT 

ieeeg;  set  interrupt  ENABLE  REG  =  z 

El 

ADDR1 

EOU 

00HJ  LOCATION  OF  TRANSMIT  DATA  START* 

ADDR2 

EOU 

06H?  600  HEX 

ADDF3 

EOU 

00H 

MV  I 

A.ADDR1J  LOAD  TRANSMIT  MESSAGE  1ST  ADD? 

OUT 

EBAR 

MVI 

A  ,  ADDR2 

OUT 

HBAR 

MVI 

A.ADDR3 

OUT 

LEAR 

MVI 

A  ,00H»  LOAD  BYTE  COUNT 

OUT 

H3REG 

MVI 

A.032H 

OUT 

L3RSG 

DI 

MVI 

A  ,06E*  ENABLE  NI3010  TDD  INTERRUPT 

LX  I 

H  ,CEREG 

MOV 

M ,  A 

CUT 

IEREG 

El 

DONE 

MOV 

a,m;  read  the  copy  of  iereg-cebeg 

CPI 

06H 

JZ 

DONE 

TEST3 

MVI 

A  ,0291?  LOAD  TRANSMIT  AND  SEND  COMMAND 

OUT 

CREG 

RET 

;end  transmit  subroutine 

;  ********** *************************** *****  ***************** 


JREAD  STATUS  SUBROUTINE: 


READ 

MVI 

B, 1111111 0B 

MVI 

C,00H 

RDLP 

IN 

IS  REG 

ORA 

B 

CPI 

00FFH 

JNZ 

P.DLP; CONTINUE  LOO?  UNTIL  STATUS  REG  READ 

IN 

SR  EG 

CMP 

C 

JNZ 

EFMSG 

LX  I 

D.MSG 

MVI 

C.09H 

CALL 

3DOS 

CALL 

CRLF 

JMP 

RDONE 

EFMSG 

LX  I 

D.NMSG 

MVI 

C « 09H 

JMP 

BDOS 

CALL 

CRLF 

RDONE 

RET 

;end  READ 

SUBROU 

TINE: 

•  **********************************  ************************* 
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v.  : 


» —*•  -■■ 


V.W  -. 


» INTERRUPT  HANDLER: 
{SAVE  CPU  STATE: 


INTHDL 

El 

PUSH 

PSW 

PUSH 

B 

PUSH 

D 

PUSH 

DI 

H 

LX  I 

H.CEREG 

MOV 

B  ,M?  SAVE  ENABLE  REGISTER  COPY  VALUE 

MVI 

A ,  00H 

LXI 

H.CEREG;  DISABLE  NI3010  INTS. 

OUT 

IEREG 

MOV 

M ,  A 

MOV 

A  ,B 

MVI 

B.04HJ  IS  RBA  INTERRUPT  ENABLED? 

CMP 

B 

JZ 

RBA 

MVI 

3 ,  0?H ?  IS  RDD  INTERRUPT  ENABLED? 

CMP 

B 

JZ 

RDD 

MVI 

A.04HJ  IE  NEITHER  OF  ABOVE  THEN  WAS  TDD 

LXI 

h.cereg;  enable  rba  interrupt 

MOV 

M ,  A 

OUT 

IEREG 

JMP 

FINI 

RADD1 

ECU 

00H?  1ST  ADDR  TO  WRITE  RECVD  FRAME  TO= 

FADD2 

ECU 

09H;  0800  HEX 

RADD3 

EQU 

0eH 

RBA 

MVI 

A  .RADD1 »  LOAD  THE  ADDHESS  REGISTERS 

OUT 

E3AP 

MVI 

A.RADD2 

OUT 

E3AR 

MVI 

A.RADD3 

OUT 

LBAR 

MVI 

A.00H;  now  load  byte  count  REGISTERS 

OUT 

HBREG 

MVI 

A ,  040H 

OUT 

LB  REG 

LXI 

H.CEREG 

MVI 

A.07H;  ENABLE  RDD  INTERRUPT 

MOV 

M.A 

CUT 

IEREG 

JMP 

FINI 

HDD 

LXI 

H.CEREG 

MVI 

A.04H 

! RECEIVE 

PROCESS  W>KE  UP  IN  HEF.E 

MOV 

M.A 

OUT 

IEREG 

FINI 

El 

{RESTORE 

CPU  STATS: 
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POP  E 

POP  D 

POP  B 

DI 

MV I  A.020HJ  RESTORE  INTERRUPT  STATUS 

OUT  0FDH 

POP  PSW 

El 

RET 

;end  interrupt  eandls? 

;**#**#***«*#  JMt**#*#*************##*####**#******##***##*^* 


CRLF 

MVI 

C.CONSOUT;  GENERATES  CARRIAGE  RTN  +LINE 

MV  I 

E.0DH 

CALL 

BDOS 

MVI 

C ,  CCNSCUT 

MVI 

E ,  0AH 

CALL 

RET 

BDOS 

•ft******************************* «*****«**# ft**#***#?*****#** 

CONIN 

LX  I 

E.0608E:  READ  TEST  DATA  INPUT  FROM  CONSO 

INLP 

MVI 

C.CONSIN 

PUSH 

E 

CALL 

3D0S 

POP 

H 

MOV 

M,  A 

CPI 

60S? COMPARE  TO  GRAVE  ACCENT 

RZ 

INX 

H 

JMP 

INLP 

•  **#******#  sje**##*##*#*****#*******##*#**##*###**##***#***#** 

CONOUT 

LX  I 

H.0812E;  OUTPUT  TEST  DATA  TO  THE  CONSOLE 

OTLP 

MVI 

C , CONSOUT 

MOV 

E.M 

MOV 

A  ,E 

CPI 

60HJ IE  GPAVE  ACCENT  THEN  RETURN 

RZ 

PUSH 

H 

CALL 

BDOS 

POP 

H 

INX 

E 

JMP 

OTLP 

************************************************************ 

BMSG 

DB 

'ETHERNET  LEVEL  ONE  TEST  PROGRAM:  VERS' 

DB 

'ION:  1.13:  04 /30/83-MDS$ ' 

OLMSG 

DB 

'ONLINE  COMMAND  ISSUED$  ' 

STMSG 

DB 

'SSL?  TEST  COMMAND  ISSUED*' 

MLMSG 

DB 

'MODULE  LCOPBA CT.  COMMAND  ISSUED*' 

CLMSG 

DB 

'CLEAR  LOOPBACX  COMMAND  ISSUED*' 

TRCMSG 

DB 

'TP.ANSMIT/SEND  COMMAND  ISSUED*' 

MSG 

DB 

'COMMAND  EXECUTED*' 

NMSG 

DB 

'COMMAND  FAILED*' 
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FMSG 


DB 
EB 
DB 

LMSG  DB 

DB 

DMSG0  DB 

DB 

DMSG1  DB 

DMSG2  DB 

DMSG3  DB 


'ENTER  TEXT(42  CHAR  MAX)  FOR  MODULE' 
'INTERFACE  LC0?3ACX(42  CHAR  MAX) 

'  (END  WITH  A  GRAVE  ACCENT=>  ')$' 

'THE  DATA  TRANSFERRED  VIA  MODULE  INTER' 
'FACE  LOOPBACK  IS:$' 

'ENTER  ADDRESS  OF  INSTALLED  NI3010' 

'  30ARP$ ' 

'BOARD  00-04-0A tFNTER  "  1  "$' 

'BOARD  0P-03-EA : ENTER  ”  2 
'INCORRECT  SELECTION-TRY  AGAIN : $ ' 


f***#***^*!^#**********#********#*****#*#*****#****#**#**#* 


J  *********#*#***#*##******#****#***###*****>*#*#*****#**#:*##* 

END*ET£ERNET  LEVEL  ONE  TEST  PROGRAM-VERSION  1.13 


APPFNDIX  G 


SOURCE  CODF  OF  PROOF AM  ETHTESTB. ASM 


•  **«***#*#«  #*#*#♦###*##*  ***********  $**$*  ******** ******  *  ***** 
************************************************************ 
?  ETHERNET  SECOND  LEVEL  TEST  PROGRAM-VERSION  2.04 

! PROGRAM  FILE  NAME:  ETHTESTB.COM-  INVOKE  COMMAND:  ETHTESTB 

J PROGRAM  FUNCTION: (RUN  ON  8090  BASED  MDS  SYSTEM) 

•SELF  TEST. IT  THEN  TRANSFERS  A  42-BYTE  BLOCK  OF  TEXT  FROM  A 

•  BLOCK  OF  MEMORY  STARTING  AT  ADDRESS  0700  HEX  TO  ANOTHER 
,‘BLOCK  AT  0900  HEX  IN  TWO  SEPARATE  TESTS  VIA  THE  N 12010 
(BOARD.  SUCCESSFUL  COMPLETION  OF  THESE  TESTS  VERIFIES  THE 
{FUNCTIONING  CF  ALL  THE  HARDWARE  NECESSARY  TO  COMMUNICATE 
{WITH  OTHER  HOSTS  ON  THE  NETWORK. 

{TESTS  PERFORMED: 

{  1.)  BOAPD  DIAGNOSTIC  SELF  TEST 

{  2.)  MODULE  INTERFACE  LOOPBACK-VERIFIES  THE 

{  FUNCTIONING  0?  THE  NI3010  BOARD  INCLUDING  THE 

{  NM10  PROTOCOL  MODULE. 

{  3.)  EXTERNAL  LOOPBACK-VERIFIES  TEE  FUNCTIONING  OF 

{  ABOVE  AND  THE  FLAT  CABLE, TRANSCEIVER  AND 

{  NETWORK  CO AX I 4L  CABLE. 

{NI3010  ETHERNET  BOARD  CONFIGURATION: 

{  1.)  JUMPS?.  SET  TO  INTERRUPT  LEVEL  5. 

{  2.)  BASE  PORT  ADDRESS  SWITCHES  SET  TO 

{  1011  (00B0H). 

{  3.)  PARALLEL  PRIORITY  TO  AN  ODD  NUMBERED 

{  MULTIBUS  SLOT. 

{ORIGINAL  PROGRAM:  03/31/83 

{LAST  RE7IS ION:  04/30/93 

{WRITER:  MARK  D.  STOTZSB 

{ADVISOR:  PROF.  U.R.  KODRES 

•  *********************************************************** 
j  *********************************************************** 

{MAIN  PROGRAM: 

CRG  100H 

{  NI3010  REGISTER  PORT  ADDRESSES: 


CREG  EQU  00B0HJ  CMD  REG  LOCATION 

SREG  EQU  00E1RJCMD  STATUS  REG  LOCATION 

ISREG  EQU  00B5HJ INTERRUPT  STATUS  REG 

IEPEG  EQU  00B8HJ INTERRUPT  ENABLE  REG 

EBAR  EQU  00B9HJ EXTENDED  BASE  ADDR  REG 

3BAR  EQU  00BAHJHIGH  BASE  ADDR  REG 

LBAR  EQU  00BBFJ  LOW  BASE  ADDR  REG 

H3REG  EQU  00BCHJ  HIGH  BYTE  COUNT  REG 

LBREG  EQU  00BDH* LOW  BYTE  COUNT  REG 

•  **#**#*>)tft****#***4:$***#*****#*****#**#*#*#«**************** 

i OTHER  NEEDED  ADDRESSES: 


BDOS 

EOU 

0005H  J  BDOS 

ENTRY  POINT 

CEP  EG 

EQU 

0800HJ  COPY 

OE  INTERRUPT 

ENABLE  REG 

STATUS 

EOU 

0S01HJCOPY 

OE  CMD  STATUS 

REG 

; NEEDED  BDOS  COMMANDS: 

PSTRING  EQU  09HJ  PRINT  STRING  FUNCTION 

CONSIN  EQU  01HJ  CONSOLE  CHAR  INPUT  FUNCTION 

CONSOUT  EQU  02HJ  CONSOLE  CHAR  OUTPUT  FUNCTION 

•  $«  ***$£*#**  $****#*$###******#«##*#******#****#*#* 

•READ  CMD  STATUS  REG  ON  POWER  UP: REQUIRED  FOR  INITIALIZATION 
IN  SREG 

J  **********4t**:C^$***#**$**#****$*#*#*******3C(ft*:*#******»X#*#*# 

JOUTPUT  INITIAL  MESSAGE  TO  USER: 

LXI  D, BMSG 

MV I  C, PSTRING 

CALL  BDOS 

CALL  CRLF 

« LOAD  JUMP  INSTRUCTION  FOR  INTERRUPT  HANDLER:  (I  NT  5) 

MV I  A.0C3HJJM?  INST  CODE 

STA  002PH  JLOAD  IT  IN  ADDR  0020  HEX 

LXI  H, I NTHDL 

SHLD  0029H 

;  ******#**##*#**«******««#*#**#****»*##**#* #***#***##*****## 

JSET  UP  INTERRUPT  CONTROL:  (INT  5) 

MVI  A.012H 

OUT  0FDH 

MVI  A.0DFHJ  ENABLE  INTERRUPT  5-ETHSR.NET  30ARD 

OUT  0FCH 

JLOAD  TRANSMIT  DATA  3L0CX-FIRST  3  BYTES  ASSIGNED  BY  XEROX: 


MVI 

A ,  02H 

STA 

0700H 

MVI 

A ,  07  H 

STA 

070 1H 

MVI 

A  ,01H 

STA 

0702H 

JLOAD  INTERLAN  ASSIGNED  LAST  3  BYTES  HERE: 

DESTINP  CALL  CPLF 

LXI  D.DMSG0J  ASX  USER  TO  INPUT  THIS  ADDRESS 
MVI  C  ,?ST? ING 


CALL  3E0S 

CALL  CRLF 

LX I  D.EMSGl 

MVI  C .PSTPING 

CALL  BEOS 

CALL  CRLF 

LX I  D.DMSG2 

MV  I  C  ,  PSTRING 

CALL  BEOS 

c  a  ll  c^LF 

MVI  C  t CONS  I N  5REAE  USER  INPUT  OF  ADDRESS 

CALL  BDOS 

CPI  31H 

JZ  DADER2 

CPI  32H 

JZ  DADDR1 

CALL  CFLF 

LX  I  D.DMSG3 

MVI  C.PSTRING 

CALL  BDOS 

CALL  CRLF 

JMP  DESTINP 

DADDR1  CALL  CRLFJ  ADER  00-03-EA  SELECTED  BY  USER  .'LOAD 

MVI  A ,00H 

ST A  0703F 

MV  I  A , 03H 

STA  0704F 

MVI  A , 0EAE 

STA  0705F 

JM?  ADDIN 

DADDR2  CALL  CRLF?  ADDRESS  00-04-0  A  S ELECTED  :LO AD  IT 

*VI  A.00H 

STA  0703F 

MVI  A , 04R 

STA  0704H 

MVI  A ,0  AH 

STA  070 5F 

JLOAD  TYPE  FIELD-  2  BYTES: 

ADDIN  MVI  A  ,00H 

STA  0606H 

MVI  A , 00F 

STA  0607F 

;NOTE:FOR  THIS  TEST  THE  ACTUAL  DATA  IS  IN  ADDRESSES 

i 3608-0632HEX  FOR  TRANSMISSION 

•  fttt*#**##*#*#*#**#####**##:*#*##*##**#*#*  **»**:##* 

?READ  IN  THE  TEST  DATA  FOR  MODULE  INTERFACE  LOOPBACK  TEST: 
MVI  C.PSTRING 

LX I  D.FMSG 

CALL  3D0S 

CALL  CRLF 

CALL  CONIN 
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CALL  CRLP 

;go  omlins  upon  powep*up: 

SI 

MV  I  A,09H;CMD  to  so  online 
OUT  CP.EG 

CALL  READ 

;  #***#*#********###*»****##***#**#*»**##***  j****#*#*####)**:**::* 

;run  ONBOARD  DIAGNOSTICS  TEST: 

MV I  A ,0 ah;  code  por  self  test  command 
out  cf.eg 

CALL  READ 

•  #«******xc*j!e#***«************#**#*#******#*#*###***9**##*#** 

;run  module  INTERFACE  LOOPBACK  TEST: 

MVI  A,09H:  go  back  online 

OUT  CREG 

call  read 

;loae  interrupt  enable  registers,  set  to  receive  data. 

DI 

LXI  H.CEREG 

MVI  A ,  04H 

MOV  M , A 

OUT  IEF.EG 

El 

; COMMAND  MODULE  INTERFACE  LOOPBACK  MODE: 

MVI  A ,02H 

OUT  CREG 

CALL  READ 

JTRANSFER  THE  TEST  DATA: 

CALL  TP MSG 

CALL  READ 

J DISPLAY  DATA  TRANSFERRED  PY  MODULE  INTERFACE  LOOPBACK  TEST: 
MVI  C.PSTRING 

LXI  D.LMSG 

CALL  3D0S 

CALL  CF.L* 

CALL  CCNOUT;  TEXT  OUTPUT  TO  THE  CONSOLE 
CALL  CFLF 

;  ****3^******  ******4^**#*************##**#*$***********$##** 

JPEFFORM  INTERNAL  LOOPBACK  TEST: 

JRSAD  IN  TEST  DATA  FOR  EXTERNAL  LOOPBACK  TEST: 

MVI  C.PSTRING 

LXI  D.FEMSG 

CALL  BDOS 

CALL  CRLF 

CALL  CONIN 

C A  LL  c°LF 

J  EXIT  INTERNAL  LOOP  TEST  MODE : 

MVI  A.03H 

OUT  CFEG 

CALL  READ 

;GO  BACK  ONLINE: 
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MV  I  A ,09H 

OUT  CEEG 

CALL  READ 

J TRANSMIT  THE  TEST  DATA: 

CALL  TRMSG 

CALL  READ 

{DISPLAY  DATA  TRANSFERRED  VIA  INTERNAL  LOOPBACK  TO  CRT: 

MVI  C.PSTRING 

LX I  D.LEMSG 

CALL  BEOS 

CALL  CP.LF 

CALL  CCNOUT 

CALL  CRLF 

JMP  0*  {RETURN  TO  OPERATING  SYSTEM 

{  END  OF  MAIN  PROGRAM 

;  **********  jMc#####**:**##*#*#**#  a**##*!*##  *###****#**#*######* 


{  TRANSMIT  SUBROUTINE 

TEMSG  DI 

{LOOP  UNTIL  INTERRUPT 


ENABLE  REGISTER  =0  CR  4 : 


LOOP 

111 

H.CEREG 

MOV 

A.M 

CPI 

00H 

JZ 

CONT 

CPI 

04H 

JZ 

CCNT 

El 

JMP 

LOOP 

CCNT 

DI 

LX  I 

H.CEREG 

MOV 

A.M 

CPI 

00F 

JZ 

CONTI 

CPI 

04H 

JZ 

CONTI 

El 

JMP 

LOO? 

CONTI 

MVI 

A  ,00H 

LX  I 

H.CEREG 

MOV 

M ,  A 

OUT 

I EREG{ 

El 

ADDR1 

ECU 

00h;  lo 

ADDR2 

EQU 

0?E 

ADD?.  3 

EOU 

00R 

MVI 

A,  ADDR 1 

CUT 

SB*? 

MVI 

A,  ADDR 2 

OUT 

HBAR 

mvi 

A.ADDR3 

OUT 

LB 4  R 

SET  INTERRUPT  ENA3LE  REG  =  0 
LOCATION  OF  TRANSMIT  BUFFER  TOP 


LOAD  TRANSMIT  MESSAGE  1ST  ADDR 
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MV I  A,00H;LOAD  3YTE  COUNT 

OUT  EBREG 

MV  I  A 1 0329 

OUT  LBREG 

DI 

MVI  A.06H?  enable  tdd  inteheupt 

LX  I  H.CEREG 

MO  7  M.  A 

OUT  IEREG 

El 

DONE  LX I  E.CEREG 

MOV  A.M;  READ  TEE  COPT  OE  IEREG=CEREC- 

CPI  0«H 

JZ  DONE 

TEST3  MVI  A ,029H I  LOAD  TRANSMIT  AND  SEND  COMMAND 

OUT  CREG 

RET 

JEND  TRANSMIT  SUBROUTINE 

;  **30c*4^***»******tt*****30c*##*******#:Cc#**9Sc**********#gCc*:***#**# 


; READ  STATUS  SUBROUTINE; 


READ 

MVI 

3,inUU0B 

MVI 

C  ,00H 

RDLP 

IN 

ISREG 

ORA 

B 

CPI 

00EEH 

JNZ 

RDLP; CONTINUE  LOOP  UNTIL  STAT  REG  READY 

IN 

SEEG 

LX  I 

E, STATUS?  KEEP  COPY  OE  CMD  STAT  REG 

MOV 

M.A 

CMP 

n 

SJ 

JNZ 

EPMSG 

LX  I 

D.MSG 

MVI 

C , PSTRING 

CALL 

3D0S 

CALL 

CRLE 

JMP 

RDONE 

ERMSG 

LXI 

D.NMSG 

MVI 

C,  PSTRING 

CALL 

BDOS 

MVI 

B.050E 

LXI 

E, STATUS 

MOV 

A.M 

ADD 

3 

MVI 

C  ,  CONSOUT  5  ERROR  CODE  TO  CONSOLE 

MOV 

E,  A 

CALL 

BDCS 

CALL 

CRLE 

LXI 

D.NMSG1 

MVI 

C, PSTRING 

CALL 

BDCS 

CALL 

CRLE 
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PT>nwi?  PVT 

JEND^READ  SUBROUTINE: 

*  INTERRUPT  HANDLER: 
•SAVE  CPU  STATE: 


INTHDL 

SI 

PUSH 

PSW 

PUSH 

3 

PUSH 

D 

PUSH 

BI 

H 

LX  I 

H. CERES 

MOV 

B , MJ  SAVE  ENABLE  REGISTER  COPY  VALUE 

MV  I 

A.00HJ  DISABLE  NI3010  INTERRUPTS 

LX  I 

H.CEREG 

MOV 

M,  A 

OUT 

IEREG 

MOV 

A.B 

MV  I 

3,04H;  WAS  P.3  A  INTERRUPT  ENABLED? 

CMP 

B 

JZ 

RBA 

MVI 

B.07H;  WAS  RDD  INTERRUPT  ENABLED? 

CMP 

B 

JZ 

RDD 

MVI 

A,04H;  I?  NEITHER  OF  THE  ABOVE  THEN 

LX  I 

h.cereg;  was  tdd-  now  enable  rba  agai 

MOV 

M  .  A 

OUT 

IEREG 

JMP 

FINI 

P.ADD1 

EOU 

00H;  location  of  where  to  write  RECVD 

RADD2 

EOU 

09e;  frame  data  in  host  memory 

RADD3 

EOU 

00H 

REA 

MVI 

A.RADDi;  NOW  LOAD  ADDR  INTO  ADDR  REGS 

OUT 

E3AR 

MVI 

A.R»DD2 

OUT 

HBAP. 

MVI 

A, RADD3 

OUT 

L3AR 

MVI 

A.00HI  LOAD  BYTE  COUNT  REGISTERS 

OUT 

HBRFG 

MVI 

A ,  040H 

OUT 

LBREG 

LXI 

H.CEREG 

MVI 

A.07H;  ENABLE  RDD  INTERRUPT 

MOV 

M,  A 

CUT 

IEREG 

JMP 

FINI 

RDD 

LXI 

H.CFF.EG 

MVI 

A ,  04H 

;recsive 

PROCESS 

WAKE  UP  IN  HERE 

MOV 

M,  A 

IEREG 


OUT 

FIN I  SI 

♦RESTORE  CPU  STATE: 

POP  H 

POP  D 

POP  B 

DI 

MV  I  A.02PH;  RESTORE  INTERRUPT  STATUS 

OUT  0FDH 

POP  PSW 

El 

RET 

» ENT  INTERRUPT  EANELER 

'ft*******'******************#*****#***#*#*************#***##* 

CELF  MV I  C.CONSOUT;  GENERATES  CARRIAGE  RTS  +LFESD 

MV I  E.0DH 

CALL  BOOS 

MV I  C , CONSCUT 

MVI  E,  0AH 

CALL  3D0S 

RET 

*  ********4^*******#**************  *******  *  ******************* 

CONIN  LX I  H.0708HJ  REAP  TEST  DATA  INPUT  FROM  CONS. 

I  NLP  MVI  C.CONSIN 

PUSH  E 

CALL  BDOS 

POP  H 

MOV  M,  A 

CPI  60H?IF  GRAVE  ACCENT  THEN  RETURN 

RZ 

INX  E 

JMP  INLP 

•  *******************************************************:»*** 


CONOUT 

LX  I 

Hf 09125?  OUTPUT  TEST  DATA  TO  THE  CONSOLE 

OTLP 

MVI 

C ,  CONSOUT 

MOV 

F.M 

MOV 

A  ,E 

CPI 

60E;TEST  for  end  CHAR-GRAVE  ACCENT 

RZ 

PUSH 

H 

CALL 

BDOS 

POP 

H 

INX 

H 

JMP 

OTLP 

*  *********************************************************** 

BMSG 

DB 

'ETHERNET  SECOND  LEVEL  TEST  PROGRAM:' 

DB 

'  VERSION  2.04:  04/30/83-MDS* ' 

DMSG0 

DB 

'ENTER  ADDRESS  OF  INSTALLED  NI3010  ' 

DB 

'30.»?D:  A  ' 

DMSG1 

DB 

'BOARD  00-04-0A :ENTER  "  1  "A ' 

DMSG2 

DB 

'BOARD  00-03-EA :ENTER  ”  2  "S' 

DMSG3  DB  'INCORRECT  SELECTION  NUMBER-TRY  AGAIN : $  ' 

MSG  DB  'EXECUTING  BOARD  COMMAND _ $' 

NMSG  DB  'COMMAND  EAILED-ERROR  CODE:$' 

NMSG1  D3  'FOR  INTERPRETATION  OF  ERROR  CODES-SES' 

DB  'ASM  LISTING  FILE$  ' 

FMSG  DB  'ENTER  TEXT (42  CHAR  MAX)  FOR  MODULE' 

DB  '  INTERFACE  LOOPBACK  TEST: 

DB 

DB  '(END  STRING  WITH  A  GRAVE  ACCENTS  ')$' 

FEMSG  DB  'ENTER  TEXT (42  CHAR  MAX)  FOR  INTERNAL' 

DB  '  LOOPBACK  TEST: 

DB 

DB  '(END  STRING  WITH  A  GRAVE  ACCENT=>  ')$' 

LMSG  DB  'THE  DATA  TRANSFERRED  BY  MODULE' 

DB  '  INTERFACE  LOOPBACK  IS  ' 

LEMSG  DB  'THE  DATA  TRANSFERRED  BY  INTERNAL' 

DB  '  LOOPBACK  IS:$' 

JERROR  CODES: (IN  RESPONSE  TO  TRANSMISSION  COMMAND  FAILURES): 
J  LETTER  i  NATURE  OF  FAILURE 


S  YOU  ISSUED  AN  INAPPROPRIATE  COM 

MODE  THE  30ARD  IS  IN. 

T  BOARD  TIMER  TIMED  CUT-POSSIBLE 

PROBLEM. 

TJ  TRANSMIT  BUFFER  SIZE  EXCEEDED  :  ( 

V  FRAME  SENT  TO  BOARD  TOO  SMALL:' 

X  EXCESSIVE  COLLISIONS 

*#**##*#****##**#*##*********##*#**#+*##*##***###+**#*##*#* 
*********************************************************** 
ENDJETHERNET  SECOND  LEVEL  TEST  PROGRAM-VERSION  2. 


APPENDIX  H 


SOURCE  CODE  OP  MAIN  MODULE  ETHERNET. PLI 


ETHERNET :/*MAIN  MODULE-APPLICATION  LAYER-ISO  LEVEL  ?*/ 
PROCEDURE  OPTIONS  (MAIN); 

DECLARE 

/*  LOCAL  VARIABLES  */ 

COUNT?  PIXED  BINARY (7) ,/*LCOP  CONTROL  VARIABLE*/ 

COUNT7A  FIXED  BINARY (7 j , /*LOOP  CONTROL*/ 

C0UNT73  FIXED  BINARYC?) |/*LOOP  CONTROL*/ 

C0UNT7C  PIXED  BINARY(? ) , /*LCOP  CONTROL*/ 

DSKNO  CHARACTER(l)  ,/*USER  INPUT  DISK  NUMBER*/ 
PRAMD  CHARACTER (1) ,/*USER  INPUT  FRAME  SIZE*/ 
SELECT  CHARACTER (1),/*USER  INPUT  MODE  SELECTION*/ 

/*  GLOBAL  VARIABLES  */ 

RECPIL  FIXED  BINARY{7 )  EXTERNAL  ,/*RECVD  FILE  NO.*/ 
PR  SIZE  PIXED  BINARYU5)  EXTERNAL  ,/*FRAME  SIZE*/ 

VTERM  FIXED  BINARY (? )  EXTERNAL, /TERMINAL  FLAG*/ 
TRMODE  PIXED  BINARY (7)  EXTERNAL, /*CMD  MODE  FLAG*/ 
/*  GLOBAL  DATA  STRUCTURES  V 

TX BUFF ( 1508 )  FIXED  3INARY(7)  EXTERNAL, /*TRANS  BUFF*/ 
RX3UFF( 1522 )  FIXED  BINARY (7)  EXTERNAL ,/*RECV  BUFF*/ 
TXTBUF  (128)  FIXED  BINARY (7)  EXTERN AL , /*TSXT  BUFF*/ 

1  RXFCB  EXTERNAL, /*RECEIVE  FILE  CONTROL  BLOCK*/ 

2  DISK  FIXED  BINARY(7) , 

2  FNAME  CHARACTERS), 

2  FTYPS  CHARACTER (3), 

2  RFCB (24)  FIXED  BINARY (7 ) , 

1  TXFCB  EXTERNAL, /TRANSMIT  FILE  CONTROL  BLOCK*/ 

2  DISK  FIXED  BINARY (7) , 

2  FNAME  CHARACTERS), 

2  FTYP3  CHARACTERS) , 

2  TFCB ( 24 )  FIXED  BINARY (7), 

/*  EXTERNAL  MODULES  */ 

IN  IT  ENTRY,/*  INITIALIZES  INTERRUPTS  &  NI3010*/ 
SENDATA  ENTRY,/*  TRANSMIT  ISO  LEVEL  6  MODULE  */ 
RECEIVE  ENTRY;/*  RECEIVE  MODULE  */ 

/♦LAST  REVISION:  09/15/83-09ee  ORIGINAL  PROGRAM :07/29/83  */ 
/♦AUTHOR:  CAPT.  MARK  D.  STOTZER-USMC-ASGIS  GROUP  */ 

/♦THESIS  ADVISOR:  PROFESSOR  UNO  R.  KCDRES-COMP.  SCIENCE  */ 

PUT  SKIP  list ( '****************************************** ' ) ; 
PUT  SKIP  LIST( 'ETHERNET  COMMUNICATION  PROGRAM-VERSION  5.0'); 
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PUT  SKIP  LIST ('ALLOWS  THIS  HOST  TO  CONNECT  TO  THE  NET.'); 
PUT  SKIP  LIST( 'CNTL-H=BACKSPACE  FOR  TEXT  ENTRIES:'); 

PUT  SKIP  LIST ( ******************************************* ' ) 

PUT  SKIP (2 ) f 

RECFIL=47? 

C0UNT7=1J 

DO  WHILE  (CCUNT7=1); 

COUNT?A*l? 

DO  WHILE (COUNT7A=l ) » 

PUT  SKIP(2); 

PUT  SKIP  LI  ST ( *************  MAIN  MENU  ************* ' ) 
PUT  SKIP  LIST ('WRITS  RECEIVED  FILES  TO  DISK  NO:'); 

PUT  SKIP  LIST(  'DEFAULT  DRIVE(A)  -  l')J 

PUT  SKIP  LIST ( 'DISK  DRIVE  A  =  2') 5 

PUT  SKIP  LIST (  'DISK  DRIVE  B  =  3'); 

PUT  SKIP  LI ST ('************************************' ) 
PUT  SKIP  LIST( 'ENTER  DRIVE  NUMBER==> '  ) * 

GST  LIST(DSKNO); 

PUT  SKIP(2)J 
IF  DSKNO-  '1 '  THEN 

do; 

RXFCB .DISK=0? /*  LOAD  DISK  NUMBER  IN  FCB  */ 
CQUNT7A-2* 

end; 

ELSE 

IF  DSKNO= '2 '  THEN 

do; 

HXFCB.DISK*i;/*  DISK  NUMBER  TO  FCB  */ 

C0UNT7A®2; 

end; 

ELSE 

IF  DSKN0='3'  THEN 

do; 

RXFCB .DISK=2;/*  DISK  NUMBER  TO  FCB  */ 

COUNT? A*2» 
end; 

ELSE 

PUT  SKIP  LIST ( 'INVALID  DRIVE  NUMBER-REENTER :') J 

snd;/*do  loop*/ 
count?b=i; 

DO  WHILE  (COUNT7B=l); 

PUT  SKIP  LIST (  'ETHERNET  FRAME  DATA  BLOCK  SIZE:'); 

PUT  SKIP  LIST( 'SELECT  128  FOR  ALL  FILE  OPERATIONS'); 
PUT  SKIP  LIST ( 'AND  VAX  COMMUNICATIONS.')? 


PUT  SKIP  LIST(  '  128  BITES  =  l')J 
PUT  SKIP  LIST (  '  256  BITES  =2')? 
PUT  SKIP  LIST (  '  512  BITES  =  3'); 
PUT  SKIP  LIST (  '  1024  BITES  =4')? 
PUT  SKIP  LI  ST (  '  1500  BITES  =5'); 


PUT  SKIP  LIST (  '*******************************' ) ; 
PUT  SKIP  LI  ST  ('ENTER  SELECTIONS  ' ) ; 
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GET  LIST(mMD); 

PUT  SIIP(2); 

IF  FRAUD- '1'  THEN 

do; 

FRSIZE-128;/*  SET  THE  FRAME  SIZE  */ 
C0UNT7B-2J 
END; 

ELSE 

IF  FRAMD- '2'  THEN 

do  ; 

FRSIZ3-256J /*  SET  FRAME  SIZE  */ 
C00NT7B-2; 

end; 

FT 

IF  FRAME* '3'  THEN 

do; 

FRSIZE-512? /*  SET  FRAME  SIZE  */ 

COUNT7B-2J 

end; 

ELSE 

IF  FRAME- '4'  THEN 

do; 

FRSIZS-1024;/*  SET  THE  FRAME  SIZE  */ 
C00NT73-2; 

end; 

ELSE 

IF  FRAME- '5'  THEN 

do; 

FRSIZE-1500;/*  SET  FRAME  SIZE  */ 
C0UNT7B-2; 

end; 

ELSE 

PUT  SUP  LIST  ( 'INCORRECT  CHOICE-REENTER:'); 

end;/*  do  loop  */ 

VTSRM-0; /*  RESET  TERMINAL  FLAG  TO  FALSE  V 
TPMODE-0;/*  RESET  COMMAND  MODS  FLAG  TO  FALSE  */ 
CALL  init; 

PUT  SHIP  LIST ( 'OPERATING  MODES:'); 

PUT  SKIP  list ('****************************') ; 


PUT  SKIP  LIST( 'RECEIVE  WAIT  LOOP  -  1') 
PUT  SKIP  LIST ( 'TRANSMIT  FILE  OR  MESSAGE-  2') 
PUT  SKIP  LIST( 'VIRTUAL  TERMINAL  OF  VAX  =  3') 
PUT  SKIP  LIST {  'V AX  COMMAND  MODE  =  4') 
PUT  SKIP  LIST ( 'DISCONNECT  FROM  NET  =  5') 


PUT  SKIP  LIST ( '*****<*<^**n^«w******************** ' ) 
PUT  SKIP  LIST ('ENTER  SELECTION  — >'); 

GET  LIST (SELECT) J 
PUT  SKIP(2); 

IF  SELECT- '1'  THEN  /*  RECEIVE  MODE  */ 

do; 

TXBUF?(1  )=2 ; /*  LOAD  FIRST  THREE  DEST  ADDR  BITES  */ 
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TXBUFF (2  )*7? /*  FOR  ACX  REPLY  IN  RECEIVE  MODE  */ 
TX3UFF(3)=1? 

PUT  SKIP  LIST('IN  RECEIVE  WAIT  LOCP-TO  RETURN  TO'); 
PUT  SKIP  LIST ( 'MAIN  MENU;  ENTER  <CR>  ==>')? 

PUT  SKIP  LI  ST  (  's###*5***#**#**###**#**#***#*#***  ' ) ; 
PUT  SEIP(2); 

CALL  receive; 
end; 

ELSE 

IF  SELECT3 '2'  THEN  /*  NORMAL  TRANSMIT  */ 

CALL  TRANS2  ? 

ELSE 

IF  SELECT3 '3'  THEN  /*  VAX  TERMINAL  MODE  */ 

do; 

VTERM=1J /*  SET  THE  TERMINAL  FLAG  TO  TRUE  */ 
FRSIZE31500? 

PUT  SKIP  LIST( '*******  VAX  TERMINAL  MODE  *******'); 
PUT  SKIP(l); 

PUT  SKIP  LIST(  'VAX  TERMINAL  SERVICE;')? 

PUT  SKIP  LIST(  'DATA  BLOCK  SIZE  PER  FRAME3'); 

PUT  LIST(FRSIZE) • 

PUT  SKIP  LIST(  ' - '); 

PUT  SKIP  LIST( 'TERMINAL  ENTRY  BY  LINE  OF  TEXT')? 

PUT  SKIP  LIST( 'BEGIN  AFTER  INITIAL  V  PROMPT;  "V>”')? 
PUT  SKIP  LIST( 'ENTER;  TEXT  LINE<CR>'); 

PUT  SKIP  LIST( 'PROMPT  WILL  AUTOMATICALLY  REAPPEAR')? 
PUT  SKIP  LIST(  'UPON  ENTRY  OF  THE  FIRST  CHARACTER')? 
PUT  SKIP  LIST( 'OF  THE  NEXT  LINE  YOU  BEGIN.')? 


PUT  SKIP  LIST(  ' - '); 

PUT  SKIP  LIST( 'TO  END  TERMINAL  SESSION;')? 

PUT  SKIP  LIST( 'ENTER;  V’<CR>  AFTER  '*V>  ’')? 

PUT  SKIP  LI  ST  (  ' - ')  ? 

PUT  SKIP(l); 


TXBUFF(1  )=*2?  /*  LOAD  THE  VAX  NET  AD  DR  INTO  THE  SIX*/ 
TXBUFF(2)37*  /*  ADDRESS  BYTES  */ 

TXBUFF( 3  )31 ? 

TXBUFF(4 )30  ? 

TXBUFF ( 5 )  *7  ? 

TXBUFF(6)=127? 

TXBUFF(7 ) *0  ? /*  LOAD  THE  TYPE  TWO  TYPE  FIELD  BYTES  */ 
TXBUFF ( 9 )=0? 

COUNT7C=i; 

PUT  SKIP  LI ST(  'V>')  ? 

DO  WHILE  (COUNT7C=l)? 

CALL  SENDATA? 

PUT  SKIP  LIST('V>'); 

IF  VTERM=0  THEN  /*END  TERMINAL  SESSION*/ 

DC? 

PUT  SKIP  L I S T ( '****  END  TERMINAL  SESSION  ****') 
C0UNT7C*2? 

END? 
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ELSE 

do; 

CALL  I  NIT ; 

CALL  RECEIVE, 

PUT  LIST( '~H~H~HV>'); 
END  * 

END;  /*  DO  LOOP  */ 

end; 


ELSE 

IP  SELECT* '4' 

do; 

put  skip 

PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 
PUT  SKIP 


THEN  /*  VAX  COMMAND  MODE  */ 


'); 


PUT  SKIP 
PUT  SKIP(l); 
TRMODE=i;  /*SET 
?RSIZE*128; 
TXBUFF(l)*2i 
TXBUFF(2)*7; 
TXBUFF(3)*1J 
TXBUFF(4)*e>; 
TXBUFF(5)*7; 
TXBUFF(6 )*127» 
TXBUFF(7)=0;/* 
TXBUFF(8 )*0 ; 
call  sendata; 

CALL  init; 
RXBUFF(17)=255; 

CALL  receive; 
end; 
else 

IF  SELECT* '5'  THEN  /* 
COUN T7*2; 

ELSE 

PUT  SKIP  LIST( 'INCORRECT 
END;  /*  DO  LOOP  */ 


LI S T ( '***  VAX  COMMAND  INSTRUCTIONS  ***') 

LI ST(  ' - 

LIST (  'TO  DOWNLOAD  A  FILE  FROM  THE  VAX:'); 

LIST( 'ENTER  THE  MESSAGE:'); 

list  '"  !Fname(v,4x}.ftxpe(vax)/xxx'  ”'); 

LIST( 'WHERE  XXX  =  EXE  FOR  NON-TEXT  FILES'); 
LIST(  'AND  "XXX"= *TXT"  FOR  TEXT  FILES'); 

LIST( 'FILE  WILL  THEN  BE  IMMEDIATELY  SENT'); 
LIST( 'TO  THIS  HOST.')? 

LIST(  ' - '); 

LIST ('TO  UPLOAD  A  FILE  TO  THE  VAX:'); 

LIST('l.)  ENTER  THE  MESSAGE:'); 

LIST(  '**  OFNAME(VAX)  .FTYPE(VAX  )/XXX'  '*'); 

LIST( 'TO  OPEN  A  VAX  FILE  BY  THE  ABOVE  NAME'); 
LIST('2.)  THEN:'); 

LIST(  'SEND  THE  FILE  TO  THE  VAX  ADDRESS  USING') 
LIST(  'THE  NORMAL  FILE  SENDING  SELECTIONS.'),* 


VAX  CMD  MODE  FLAG  TO  TRUE*/ 


/♦LOAD  THE  VAX  NET  ADDR  INTO  THE  SIX  */ 


/♦ADDRESS  BYTES  */ 


LOAD  THE  TWO  TYPE  FIELD  BYTES  */ 


DISCONNECT  BY  EXITING  TO  CP/M  */ 


OPMODE  SELECTION-REENTER:') 
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POT  SKIP  LIST ( 'DISCONNECTING  FROM  NET-RETURNING  TO  CP/M.'); 
TRANS2:  /*  GETS  USER  INPUT  OF  FILE  DATA  */ 

procedure; 

DECLARE 

/*  LOCAL  VARIABLES  */ 

C0UNT6  FIXED  BINARY (?),/*  LOOP  CONTROL*/ 

C0UNT6A  FIXED  BINARY (7),/*  LOOP  CONTROL*/ 

COUNT 6B  FIXED  BINARY (7 ), /*LOOP  CONTROL*/ 

COUNT6C  FIXED  BI NARY ( 7 ) , /*LOOP  CONTROL*/ 

SENDTYPE  CHARACTER (1),/*USER  INPUT  TRANSMIT  TYPE*/ 
FTYP  CHARACTER ( 1 ) , /*USER  INPUT  FILETYPE*/ 

DRNO  CHARACTER(l) ,/*USER  INPUT  DRIVE  NO.*/ 

/*  FILE  DATA  ENTRY  DCLS  */ 

I  FIXED, 

FN  CHARACTER (20 )  , 

LOVER  CHARACTER (26)  STATIC  INITIAL 
('abcdefshljklmnopqrstuvwxyz') , 

UPPER  CHARACTER 26)  STATIC  INITIAL 
(  'ABCDBFGHI  JKLMNOPQ.RSTUVWXYZ ' ) , 

/*  GLOBAL  VARIABLES  */ 

FILTTP  FIXED  BINARY  (7)  EXTERNAL,/*  FILE  NATURE*/ 
FNOP  FIXED  BINARY  (7)  EXTERNAL , /*FI LE  NOT  OPEN  FLG*/ 
/*  GLOBAL  DATA  STRUCTURES  */ 

TXBUFF( 1508 )  FIXED  BINARY (7)  EXTERNAL , /*TR AN S  BUFF*/ 
1  TXFCB  EXTERNAL ,/*TR AN SM IT  FILE  CONTROL  BLOCK*/ 

2  DISK  FIXED  BINARY (7 ) , 

2  FNAME  CHARACTERS), 

2  FTYPE  CHARACTERS), 

2  TFCB (24 )  FIXED  BINARY  (7), 

/*  EXTERNAL  MODULES  */ 

SENDATA  ENTRY;/*  ISO  LEVEL  3  FRAME  SENDER*/ 

C0UNT6  *1 ; 

DO  WHILE (COUNT6=l ) ; 

PUT  SKIP  LIST ( 'TRANSMISSION  OPTIONS:'); 

PUT  SKIP  LIST ('SEND  A  MESSAGE  *  1')? 

PUT  SKIP  LIST (  'SEND  A  DISK  FILE  =  2'); 

PUT  SKIP  LIST ('**************************************') ; 
PUT  SKIP  LIST ('ENTER  SELECTION  ==>'); 

GET  LIST(SENDTYPE); 

PUT  SKIP(2); 

TXBUFF(8)»0;/*  TYPE  FIELD  BYTE  2=N0RMAL  MSG  OR  FILE*/ 

IF  SENDTYPE* '1 '  THEN  /*SEND  A  MESSAGE  */ 

do; 

TXBUFF(7)*3;/*TYPE  FIELD  BYTE  1=MESSAGE*/ 

CALL  sendata; 

COUNT6*2  5 

end; 


ELSE 

IF  SENDTYPE='2'  THEN  /’"SEND  A  DISK  FILE*/ 

do; 

TXBUFF(7 )=15»/*  TYPE  FIELD  BYTE  1=  FILE*/ 
C0UNT6A*i; 

DO  WHILE (C0UNT6A=1); 

POT  SKIP  LIST( 'NATURE  OF  FILE  TO  SEND:'); 

PUT  SKIP  LI  ST ( 'TEXT  (ASCII)  FILE  =  1'); 

PUT  SKIP  LIST( 'MACHINE  CODE  (COM)  FILE  =  2'); 
PUT  SKIP  LI ST( '******************************* 
PUT  SKIP  LIST(  'ENTER  TYPE  OF  FILE  CHOICE  ==>') 
GET  LIST(FTYP); 

PUT  SKIP(2); 

IF  FTYP=  '1 '  THEN 

do; 

FILTYP=1 ; /*  SET  THE  FILFTYP=TEXT  FILE  */ 
C0UNT6A=2? 

end; 

ELSE 

IF  FTYP=  '2 '  THEN 

do; 

FILTYP=2;/*  FILE  TYPE=MACHINE  FILE  */ 
C0UNT6A=2 ; 

end; 

ELSE 

PUT  SKIP  LIST ( 'INCORRECT  CHOI CE-REENTER :  ' ) { 

end;/*  do  loop  */ 

COUNT  6B*1» 

DC  WHILE (C0UNT6B*1); 

COUNT 6C*i; 

DO  WHILE (C0UNT6C=1 ) » 

PUT  SKIP  LIST( 'SPECIFY  FILE  TO  SEND:'); 

PUT  SKIP  LIST ( 'FILE  LOCATED  ON:'); 

PUT  SKIP  LIST (  '  DRIVE  A  =  1'); 

PUT  SKIP  LIST(  '  DRIVE  3  =  2'); 

PUT  SKIP  list ('*********************') ; 

PUT  SKI?  LIST( 'ENTER  DRIVE  NUMBER==>')J 
GET  LIST(DRNO); 

PUT  SKIP(2); 

IF  DRNO* '1 '  THEN 

do; 

TXFC3 .DISK=i; 

C0UNT6C=2  J 

end; 

ELSE 

IF  DRNO*'2'  THEN 

do; 

TXFC3.DISK=2J 

C0UNT6C=2; 

end; 

ELSE 
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PUT  SKIP  L I S T ( 'INVALID  DRIVE-RSENTER :  ' ) ; 

end;/*  do  loop  */ 

PUT  SKIP  LIST ( 'ENTER : "FILENAME .FILET YPE"==>  ' ) ; 
GET  LIST(PN); 

PUT  SKIP(2); 

FN=TRA.NSLATE (FN .UPPER, LOWER) J 
I=INDEX(FN,  '. '); 

IP  1=0  THEN 

do; 

txfcb. fname=fn; 

TXFCB .FTYPE=  '  '; 

end; 

ELSE 

do; 

TXFCB ,FNAME=SUBSTR ( FN , 1 , 1-1 ) ; 

TXFCB .FT YPE=SU3STR( FN , 1+1 ) ; 
end; 

TXFCB. TFCB(1)=0;/*  SET  FCB  FIELDS  THAT  COUNT=0*/ 
TXFCB. TFCB( 4 )=0; /CURRENT  EXTENT , RECORD  ETC.  */ 
TXFCB. TFCB(21)=05 
CALL  sendata; 

IF  FNOP~=l  THEN 
C0UNT6B=2; 

end;/*  do  loop  */ 

COUNT 6=2; 

end; 

ELSE 

PUT  SKIP  LIST(  'INCORRECT  TRANSMIT  MODE-REENTER :  ' ) ; 
END;  /*  DO  LOOP  */ 

END  TRANS2; 

END  ETHERNET;/*  ISO  LAYER  7  MODULE  */ 


APPENDIX  I 


SOURCE  CODE  FOR  MODULE  SEND  ATA  .PLI 


SENDATA:  /♦  PRESENTATION  LATER  MODULE-ISO  LEVEL  6  */ 

procedure; 

DECLARE 

/*  LOCAL  VARIABLES  */ 

C0UNT5A  FIXED  BINARY ( 7 ) , /*LOOP  CONTROL*/ 

DESTADDR  CHARACTER { 1 ) ,/*  DEST  ADDRESS-USER  INPUT*/ 

/*  GLOBAL  VARIABLES  */ 

TRMODE  FIXED  BINARY(7)  EXTERNAL,/*'/ AX  CMD  FLAG*/ 
VTERM  FIXED  3INARY(?)  EXTERNAL, /*TERMINAL  FLAG*/ 
FRSIZE  FIXED  BINARY (15)  EXTERNAL , /*FRAME  SIZE*/ 

/*  GLOBAL  DATA  STRUCTURES  */ 

TXBUFF(1509 )  FIXED  BINARY  (7)  EXTERN AL;/*TF.ANS  BUFF*/ 

/*LAST  REVISION:  09/15/83-0900  ORIGINAL  PROGP.AM:07/29/83*/ 
/♦AUTHOR:  CAPT.  MARK  D.  STOTZER-USMC-AEGIS  GROUP  */ 

/♦THESIS  ADVISOR:  PROF.  UNO  R.  KODRES-COMPUTER  SCIENCE  */ 

IF  VTERM*  1  THEN  /*  TERMINAL  MODE  ♦/ 

do; 

CALL  sendmsg; 
return; 
end; 

IF  TRMODE*  1  THEN  /*  VAX  COMMAND  MODE  */ 

do; 

call  sendmsg; 
return; 
end; 

C0UNT5A=i; 

DO  WHILE(C0UNT5A=1)  5 

PUT  SKIP  LIST ( 'ADDRESSES  ON  THIS  NETWORK:'); 

PUT  SKIP  LIST ( '00-03-EA :  MDS  SYSTEM  =1')? 

PUT  SKIP  LIST ( '00-04-0A :  MDS  SYSTEM  =  2'); 

PUT  SKIP  LIST (  '00-07-7F:  VAX  11/780  =  3'); 

PUT  SKIP  list ('♦*♦♦♦♦*♦♦♦*♦♦♦♦♦*♦*♦*♦♦*♦**♦*') ; 

PUT  SKIP  LIST( 'ENTER  SELECTION  ==>'); 

GET  LIST (DEST ADDR) J 
PUT  SXIP(2); 

TXBUFF(  1  )*2;  /nOAD  THE  FIRST  FOUR  DEST  ADDR  BYTES*/ 
TXBUFF'2)=7; 

TXBUFF'3)=i; 

TXBUFF;4)=3; 
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IF  DESTADDR='l '  THEN 
DC; 

TXBUFF( 5 )=3 i /*LOAD  LAST  TWO  DEST  A DDR  BYTES*/ 
TXBUFF(6)=234J 

I?  TX3UFF(7)=0  THEN/*  SEND  THE  MSG*/ 

CALL  sendmsg; 

ELSE 

CALL  SENDFILF;/*SEND  THE  FILE*/ 

C0UNT5A=2; 

end; 

ELSE 

IF  DESTADDR='2'  THEN 

do; 

TXBUFF(5)=4;/*LCAD  LAST  TWO  DSSTINATON  ADDR  BYTES*/ 
TXBUFF(e)=10; 

IF  TXBUFF(7)=0  THEN 

CALL  sendmsg; 

ELSE 

CALL  sendfile; 

C0UNT5A=2; 

end; 

ELSE 

IF  DESTADDR='3'  THEN 

do; 

TXBUFF( 5) =?; /LOAD  LAST  TWO  DEST  ADDR  BYTES*/ 
TXB0FF(6)*127; 

TRMODE=0 J 

IF  TXBUFF (7 )=0  TEEN 
CALL  SENDMSG? 

ELSE 

„  CALL  sendfile; 

CC0NT5A=2? 

end; 

ELSE 

PUT  SKIP  LIST ( 'INVALID  NET  ADDRESS  SELSCTED-REENTER : ' ) ; 
end;  /*  DO  LOOP  */ 

SENDMSG:  /*  MESSAGE  SENDING  MODULE  */ 

procedure; 

DECLARE  /*  LOCAL  VARIABLES  */ 

/*  GLOBAL  VARIABLES  */ 

FESIZE  FIXED  BINARY (15)  EXTERNAL, /*FRAME  SIZE*/ 
TRMODE  FIXED  BINARY { 7 )  EXTERNAL, /*VAX  CMD  FLAG*/ 
7TSRM  FIXED  3INARY(7)  EXTERN AL , /*TERMI NAL  FLAG*/ 
/*  GLOBAL  DATA  STRUCTURES  */ 

TXBUFF( 1508 )  FIXED  BINARY (7)  EXTERNAL, /*TRANS  BUF*/ 
RX3UFF( 1522 )  FIXED  BIN ART ( 7)  EXTERNAL ,/*RECV  3UF?*/ 
/*  EXTERNAL  MODULES  */ 

FILBUF  ENTRY,/*  LOADS  TRANS .BUFFER  FROM  CONSOLE*/ 
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SENDFRAM  ENTRY; /*  ISO  LEVEL  3  FRAME  SENDER*/ 

IF  VTERM=1  THEN  /*  VIRTUAL  TERMINAL  MODE  */ 

DO? 

CALL  FILBUFJ 
IF  TXBUFF(9)*96  THEN 

return; 

IF  TXBUFF(9 )=46  &  TXBUFF( 10) =96  THEN  /*SND  SESSION*/ 
VTERM-0J  /*END  TERMINAL  SESSION*/ 

ELSE 

call  sendfram; 

end; 

ELSE 

do; 

PUT  SKIP  LIST(  'MESSAGE  SENDER:'),* 

PUT  SKIP  LIST( 'MAXIMUM  NUMBER  OF  CHARACTERS*  '); 

PUT  LIST(FRSIZE); 

PUT  SKIP  LI  ST ('ENTER  MESSAGE  AFTER  PROMPT:  >'); 

PUT  SKIP  LI  ST ( 'END  MESSAGE  WITH  ACCENT:  '  '); 

PUT  SKIP  LI ST(  '>'); 

CALL  FILBUF;  /*FILL  TRANSMIT  BUFFER  FROM  CONSOLE*/ 

CALL  SENDFRAM;  /*  SEND  THE  MESSAGE  */ 

end; 

END  sendmsg; 

SENDFILE:  /*  FILE  SENDING  MODULE*/ 

procedure; 

DECLARE  /*  LOCAL  VARIABLES  */ 

C0UNT4  FIXED  BINARY (7) ,/*LOOP  CONTROL*/ 

/*  GLOBAL  VARIABLES  */ 

FILTYP  FIXED  3INARY(?)  EXTERNAL ,/*FI LE  NATURE*/ 
FNOP  FIXED  BIN ARY(7 )  EXTERNAL, /*NOT  OPEN  FLAG*/ 
LFRM  FIXED  BINARY(7 )  EXTERNAL  ,/*LAST  DATA  FLAG*/ 
/*  GLOBAL  DATA  STRUCTURES  */ 

TXBUFF(1508)  FIXED  BINARY(7)  EXTERNAL, 

/*  EXTERNAL  MODULES  */ 

VAX TXT  ENTRY,/*  CP/M  TO  VAX  FORMAT  CONVERTER*/ 
TRNDMA  ENTRY, /*TP.ANSMIT  SET  DMA  ADDRESS*/ 

OPENDF  ENTRY, /*OPEN  DISK  FILE*/ 

RDISK  ENTRY, /*READ  DISK  FILE  RECORD*/ 

SENDFRAM  ENTRY? /*ISO  LEVEL  3  FRAME  SENDER*/ 

/*LAST  REVISION:  08/25/83-1530  ORIGINAL  PROGRAM: 08/16/83  */ 
/*AUTHOR:  CAPT,  MARK  D.  STOTZER-USMC-AEGIS  GROUP  */ 

/♦THESIS  ADVISOR:  PROF.  UNO  R.  KODRES-COMPUTEK  SCIENCE  */ 

TXBUFF(7)=15J /*  LOAD  TYPE  FIELD  BYTES*/ 

TXBUFF (8)=0J 
CALL  opendf; 

IF  FNO?=l  THEN  /*FILE  NOT  ON  DISK*/ 
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do; 

PUT  SKIP  LI  ST ( 'PILE  NOT  ON  DISK-REENTSR  DATA:')? 

PUT  SKIP(2); 

return; 

end; 

IF  TX3UFF(6)=127  &  FILTYP=1  THEN 

CALL  VAXTXT;  /*VAX  TEXT  FILE  FORMAT  CONVERTER*/ 

ELSE 

do; 

CALL  TRNDMA;  /*  SET  DISK  DMA  ADDRESS*/ 

PUT  SKIP  LI ST ( '*******  FILE  TRANSFER  BEGINS  ******'); 
PUT  SKIP(2); 

C0UNT4=*1 ; 

DO  WHILE (CCUNT4=1); 

CALL  HDISK; '  /*P.EAD  A  DISK  FILE  RECORD*/ 

IF  LFRM~=1  THEN 

do; 

call  sendee  am; 

TXBUFF ( 8 ) =1 ; /*ENCODE  TYPE  FLD=INTERMED  FRAME*/ 

end; 

ELSE 

C0UNT4=2 ; 

end;/*  do  loop  */ 

TXBUFF (8 )»255;/*ENC0DE  TYPE  FISLD=LAST  FRAME*/ 

call  sendfram; 

PUT  SKIP  LI ST( '*★***  FILE  TRANSFER  ENDS  *****'); 

PUT  SKIP{2)J 
RETURN ; 

end; 

end  sendfile; 

END  SENDATA;  /*  ISO  LAYS?  6  TRANSMIT  MODULE  */ 


APPENDIX  J 


SOURCE  CODE  TOR  MODULE  RBCDATA.PLI 


RECDATAs  /♦  ISO  LAYER  6  RECEIVE  MODULE  */ 

procedure; 

DECLARE  /*  GLOBAL  DATA  STRUCTURES  */ 

RXBUFF( 1522 )  FIXED  BIMARY(7)  EXTERNAL? /*RCV  BUFF*/ 

/♦LAST  REVISION:  09/15/83-1215  ORIGINAL  PROGRAM: 08/17/83  */ 
/♦AUTHOR:  CAPT  MARK  D.  STOTZER-USMC-AEGIS  GROUP  */ 

/♦THESIS  ADVISOR:  PROF.  UNO  R.  KODRES-COMPUTER  SCIENCE  */ 

IF  RXBUFF( 17) =  0  THEN  /*  MESSAGE  FRAME  */ 

CALL  CONMSG? 

ELSE 

IF  PXBUFF(17)=  15  THEN  /♦  FILE  FRAME  ♦/ 

CALL  FILER? 

ELSE 

PUT  SKIP  LIST ( 'RECEIVED  IMPROPERLY  ENCODED  FRAME')? 


CONMSG:  /*  MESSAGE  RECEIPT  MODULE  ♦/ 

PROCEDURE? 

DECLARE  /♦  GLOBAL  VARIABLES  ♦/ 

TRMODE  FIXED  BINARY(7)  EXTERNAL ,/*V AX  CMD  FLAG*/ 
FRSIZE  FIXED  BINARY ( 15 )  EXTERNAL ,/*FRAME  SIZE-/ 
VTERM  FIXED  BINARY (7)  EXTERNAL, /*TERMINAL  FLAG*/ 
/*  GLOBAL  DATA  STRUCTURES  */ 

RXBUFF ( 1522)  FIXED  BINARY (7)  EXTERNAL , /*RSCV  BUF*/ 
/*  EXTERNAL  MODULES  */ 

TRMSG  ENTRY,/*  ACKNOWLEDGE  SENDER*/ 

EMTBUF  ENTRY ?/*DUMPS  RECEIVE  BUFFER  TO  CONSOLE*/ 


IF  VTSRM~=1  THEN  /*  NCT  IN  VIRTUAL  TERMINAL  MODE*/ 

DC? 

PUT  SKIP  LIST( '****♦  RECEIVED  MESSAGE  IS:')? 

PUT  SKIP(2)? 

END? 

CALL  EMT3UF?  /*  DUMP  THE  RECVD  FRAME  DATA  TO  CONSOLE  */ 
CALL  TRMSG?  /*  SEND  THE  ACK  FRAME  */ 

IF  VTERM"=1  THEN  /*NOT  IN  TERMINAL  MODE*/ 
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do; 

put  skip(2); 

PUT  SKIP  LIST ( '*****  END  OP  MESSAGE  TEXT.'); 

PUT  SKIP(2); 

PUT  SKIP  LIST (  'PACK  IN  WAIT  LOOP-ENTER<CR>  TO  EXIT=>' 
PUT  SKI"3  LIST  (  '*************************************  ' 
PUT  SKIP (2); 

end; 

ELSE 

IP  RXBUFF(18)=  15  THEN  /*LAST  FRAME  OF  TERMINAL  REPLY*/ 
PUT  SKIP  LIST(  '?>'); 

END  CONMSG » 


FILER;  /*  FILE  FRAME  RECEIPT  MODULE*/ 

procedure; 

DECLARE  /*  GLOBAL  VARIABLES  */ 

TRMODE  FIXED  BINARY (7)  EXTERNAL ,/*CMD  FLAG*/ 
RECFIL  FIXED  BINARY '7)  EXTERNAL , /*RFILE  NO.*/ 

VTERM  FIXED  BINARY (7)  EXTERNAL , /*TERM  FLAG*/ 

/*  GLOBAL  DATA  STRUCTURES  */ 

1  RXFCB  EXTERN AL,/*R EC El VE  FILE  CONTROL  3L0CK*/ 

2  DISK  FIXED  BINARY( 7) , 

2  FNAME  CHARACTER ( 8) , 

2  FTYPE  CHARACTER ( 3)  , 

2  TFCB ( 24  )  FIXED  BINARY(7), 

RXEUFF (1522 )  FIXED  BINARY(7)  EXTERNAL  ,/*RX  BUF*/ 
/*  EXTERNAL  MODULES  */ 

RCVDMA  ENTRY, /*SETS  RECEIVE  DISK  DMA  ADDR*/ 
DELEDF  ENTRY ,/*DELETES  FILES*/ 

MAKEDF  ENTRY, /*MAKES  NEW  DISK  FILES*/ 

WRDISK  ENTRY, /*WRITES  A  DISK  RECORD*/ 

TRMSG  ENTRY, /*SENDS  ACK  FRAMES*/ 

CLOSDF  ENTRY5/*CLOSES  DISK  FILES*/ 

CALL  rcvdma; 

IF  RXBUFFf 18 )=0  THEN  /*  FIRST  FILE  FRAME  */ 

do; 

PUT  SKIP  LIST( '*******  FILE  RECEIPT  BEGINS  *******'); 
PUT  SKIP  LI ST(  '  OPFNING  FILE-  RECFROM  .NET:')? 

PUT  SKIP(2); 

RXFCB. FNAME='RECFROM  ';  /*NAME  THE  RECEIVED  FILE*/ 
RXFCB . FTYPE = 'NET ' * 

RXFCB .TFCB( 1 )*0»  /*ZERO  THREE  FIELDS  OF  FC3*/ 

RXFCB. TFCB(4)=0J 
RXFCB. TFCB(21)=0; 

CALL  DELEDF;  /*DELETE  OLD  FILE  OF  THIS  ?N . FT*/ 

CALL  MAKEDF?  /*CR  SATE  A.  NEV  ONE*/ 

CALL  WRDISK?  /*W?ITE  FIRST  RECORD ( 128  BYTES)  TO  DISK*/ 
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CALL  TRMSG;  /*  SEND  THE  FIRST  ACK  FRAME  */ 

end; 

ELSE 

IF  RXBUFF:i8)=l  THEN  /^INTERMEDIATE  FILE  FRAME*/ 

do; 

CALL  WRDISK;  /*WRITE  NEXT  RECORD  TO  DISK*/ 

CALL  TRMSG?  /*  SEND  THE  ACK  FRAME  */ 

end; 

ELSE 

IF  RXBUFF ( 18 ) *25 5  THEN  /*LAST (DUMMY )  FILE  FRAME*/ 

do; 

CALL  closdf;  /*CLOSE  THE  DISK  FILE*/ 

PUT  SKIP  LIST( '*******  END  FILE  RECEIPT  ***♦***'); 
PUT  SKIP  LI  ST ( '  SEE  FILE (S ) :RECFROM  .NET'); 

PUT  SKIP(2); 

CALL  TRMSG?  /*SEND  THE  LAST  ACK  */ 


PUT  SKIP  LIST( '  NOTE:'); 

PUT  SKIP  LIST (  ' - ') 

PUT  SKIP  LIST( 'IF  RECEIVED  FILE  IS  A  TEXT  FILE  FROM') 
PUT  SKIP  LIST( 'THE  VAX  THEN  REFORMAT  USING:'); 

PUT  SKIP  LIST( '  "PIP  FNAME. FTYPE=RECFROM  . NET [D80]  ’ ' } ; 
PUT  SKIP  LIST( 'WHEPE  FNAME. FTYPE  IS  YOUR  CHOICE'); 

PUT  SKIP  LI ST(  ' - ') 

PUT  SKIP (2); 

IF  VTERM=1  THEN 

do; 


PUT  SKIP  LIST ('STILL  IN  VAX  TERMINAL  MODE:'); 

PUT  SKIP  LIST( '¥>')? 

END? 

ELSE 

do; 

PUT  SKIP  LIST( 'IN  WAIT  LOCP-ENTER<CR >  TO  EXIT'); 
PUT  SKIP  L 1ST ('******************************') ; 
PUT  SKIP( 2 ) ; 

end; 

end; 

ELSE 

PUT  SKIP  LIST ( '  FRAME  TYPE  FIELD  BYTE  2  INVALID  CODE'); 
END  filer; 


END  RECDATAJ  /*  ISO  LAYER  6  RECEIVE  MODULE  */ 


APPENDIX  K 


SOURCE  CODE  FOR  MODULE  ETHSR2 .ASM 


•4^***#*********#*********«******** ************************* 

« 

!  PROGRAM  NAME: STHER2. ASM 
• 

;  THIS  MODULE  PERFORMS  THE  ISO  LATER  2  AND  3  FUNCTIONS  IN 
;  TRANSMIT  AND  RECEIVE  AND  PROVIDES  THE  ISO  LAYER  ? 

J  RECEIVE  MODULE 
• 

i  APPLICATION  LAYER (LATER  7)  :IN  RECEIVE  ONLY-  WAIT  LOOP 

i  FOR  FRAME  ARRIVAL. 

• 

J  NETWORK  LAYER (LAYER  3 ) jTRANSMIT  CR  RECEIVE  FRAMES 

t 

i  DATA  LINK  LAYER  (LAYER  2)  .‘PROCESSES  ACKNOWLEDGE  FRAMES 

;  IN  ADDITION  TO  TEE  LAYER  2  FUNCTIONS  PERFORMED  BY  THE 

j  N 13010  CONTROLLER  BOARD. 

;  THIS  MODULE  ALSO  ALLOWS  ALL  OTHER  MODULES  TO  ACCESS 

;  THE  CP/M-80  OPERATING  SYSTEM  FUNCTIONS  SHOWN  BELOW 

• 

;  LAST  REVISION:  09/16/83-1000  ORIGINAL  PROGRAM:  08/14/83 

J  AUTHOR:  CAPT  MARK  D.  STOTZER-USMC-AEGIS  MODELING  GROUP 

J  THESIS  ADVISOR:  PROFESSOR  UNO  R.  KODRES-COMPUTER  SCIENCE 
• 
t 

PU3LIC  INIT;  SUBROUTINES  AVAILABLE  TO  EXTERNAL  MODULES: 

PUBLIC  RECEIVE 

PUBLIC  FILBUF 

PUBLIC  EMTBUF 

PUBLIC  NULBUF 

PUBLIC  AWAIT 

PUBLIC  TRMSG 

PUBLIC  WRDISX 

PUBLIC  VAXTXT 

PUBLIC  SSNDFRAM 

PUBLIC  RDISK 

PUBLIC  OPENDF 

PUBLIC  DELEDF 

PUBLIC  MAKEDF 

PUBLIC  CLOSDF 

PUBLIC  FC7DMA;  MODULES  CALLED  BY  THIS  MODULE 
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PUBLIC 

TRNDMA 

EXTRN 

RBCDATA 

;  N13010 

BOARD 

REGISTER  PORT  ADDRESSES: 

CREG 

EQU 

00B0H;  COMMAND  REGISTER 

SRSG 

EQU 

00B1H?  COMMAND  STATUS  REGISTER 

IS  REG 

EQU 

00B5HJ  INTERRUPT  STATUS  REGISTER 

IERSG 

EQU 

00B8HJ  INTERRUPT  ENABLE  REGISTER 

EBAR 

EQU 

00B9HJ  EXTENDED  BASE  ADDRESS  REGISTER 

H3AR 

EQU 

00BAHJ  HIGH  BASE  ADDRESS  REGISTER 

LBAR 

EQU 

00B3H*  LOW  BASE  ADDRESS  REGISTER 

HBREG 

EQU 

00BCH?  HIGE  BYTE  COUNT  REGISTER 

LBREG 

EQU 

00BDH;  LOW  BYTE  COUNT  REGISTER 

JCP/M  WARM  BOOT 

ENTRY  POINT: 

EXIT 

EQU 

0000HJ  WARM  BOOT-TERMINAL  ERROR  ESCAPE 

; BUOS  EQUATES: 

BDOS 

EQU 

0005H*  BDOS  ENTRY  POINT 

;bdos  function 

CODES: 

CONSIN 

EOU 

01H?  CONSOLE  CHARACTER  INPUT 

CONSOUT 

EQU 

02H?  CONSOLE  CHARACTER  OUTPUT 

PSTRING 

EOU 

09HJ  PRINT  STRING 

CONSTAT 

EOU 

0Bh;  check  console  status 

OPENFIL 

EQU 

0FH;  open  a  disk  file 

CLOSEF 

EOU 

10h;  close  a  disk  file 

DELETE 

EQU 

13H;  delete  a  disk  FILE 

READF 

EOU 

14HJ  READ  a  DISK  FILE  RECORD-128  bytes 

WRITEF 

EQU 

15H;  WRITE  a  DISK  FILE  RECORD-128  3YTES 

MAKFF 

SOU 

16H;  CREATE  A  NEW  DISK  FILE 

SDMA 

EQU 

iah;  set  disk  dma  address 

•tf***^**#*#*#*****#*#******#******#********#***#***##*****# 

•  #******#**##*#*#*  **##>!(**#*****  #*#***  $###**##$$#*$#**$$«$*’** 

;  init- 
• 

INITIALIZES  INTERRUPT  VECTOR  AND  NI301Z  REGISTERS: 

INIT 

DI 

IN 

sreg;  read  status  register  to  clear 

MVI 

A.03FH;  CLEAR  NI3010  RECEIVE  BUFFER 

OUT 

CREG 

CALL 

READ 

MVI 

A.12H;  set  UP  INTERRUPT  CONTROL 

OUT 

0FDH 

MVI 

A ,  00H 

OUT 

0FCH 

MVI 

A,0DFH;  ENABLE  INT5  only 

OUT 

0FCH 

MVI 

A.0C3H 

STA 

0028H 

LXI 

H.RSCFRAM 

SHLD 

0029H 

LXI 

H  ,ACX 

MVI 

a.zffh;  preload  acknowledge  buffer 

MOV 

M,  A 

LXI 

h.cersg;  ENABLE  RECEIVE(RBA)  INTERRUPT 
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^  ^  A  A  A'i’.'i'lV.V 


MYI  A.04H 

MOV  M  ,A 

COT  IEREG 

MVI  A.09EJ  NI3010  ONLINE  COMMAND 

OUT  CREG 

CALL  READ 

El 

RET 

4*  4*************  *************************** 
•  *********************4c********************************4c:ic*** 

i  RECEIVE: ISO  LATER  7-WAIT  LOOP  FOR  INCOMING  FRAMES: 

RECEIVE  El 
WAITLP  NOP 

NOP 
NOP 
NOP 
NOP 
TI 

LXI  H.FRAMIN 

MOV  A.M 

CPI  01H?  HAS  A  FRAME  ARRIVED? 

JNZ  NOTTET 

CALL  RECDATA 

MVI  A.00H;  reset  frame  ARRIVAL  flag 

STA  FRAMIN 

NOTTET  MVI  C, CONSTAT 

CALL  BDOS 

CPI  00H 

RNZ 
El 

JMP  WAITLP 

• ******************************  *4t******************4t******** 
• ******************************  *****************4t  4c********** 

J  RECFRAM-PERFORMS  ISO  LEVEL  3  FUNCTION  IN  THE  RECEIVE 
;  MODErRECEIVES  frames  and  transfers  them  to  memort. 

;  HANDLES  ALL  NI3010  INTERRUPTS  AND  ENABLES. 

RECFRAM  DI 

PUSH  PSW 

PUSH  3 

PUSH  D 

PUSH  H 

LXI  H.CEREG 

MOV  3 ,M 

MVI  A.00H 

LXI  H.CEREG;  DISABLE  NI3010  INTERRUPTS 

MOV  M , A 

OUT  IEREG 

MOV  A, 3 

MVI  3.04H 
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CMP 

JZ 

MV  I 

CMP 

JZ 

JMP 

RBA  M7I 

OUT 
LXI 
MOV 
OUT 
MOV 
OUT 
LHLD 
LXI 
PAD 
MOV 
OUT 
MOV 
OUT 
LXI 
MV  I 
MOV 
OUT 
JMP 

RDD  LXI 

MOV 
CPI 
JNZ 
MV  I 
STA 
LXI 
MOV 
CPI 
JNZ 
LXI 
MOV 
CPI 
JNZ 
MV  I 
STA 
JMP 

PR ERR  DI 

LXI 
MVI 
MOV 
CUT 
LXI 
CALL 
LXI 
CALL 


B 

rba;  receive  frame  int  was  enabled 

B.07H 

B 

RDD,*  RECEIVE  DMA  int  was  enabled 
RDD2J  IP  TRANSMIT  DMA  INT  WAS  ENABLED 
A « 00H 
E3AR 

h.rbufft;  top  op  receive  buffer 

A,H 

HBAR 

A,L 

LBAR 

FRSIZE 

D.0016HJ  ADD  22  TO  IT 
D 

A,H 

HBREG 

A.L 

LBREG 

H.CEREG 

A  ,07H»  SET  INT  ENABLE  TO  RDD 

M  ,A 

IEREG 

PINI 

h.rbufft;  top  op  receive  bupper 

A.M 

00H;  TESTS  FOR  GOOD  FRAME 

prerr;  bad  recvd  frame 
a,0ih;  set  frame  arrived  flag 

FRAMIN 

H.RTTPElt  TEST  FOR  RECVD  ACK  FRAME 

A.M 

003 

RDD2 

H.RTYPE2 

A.M 

0FFH 

RDD2 

A.01H 

ACK ♦  ACK  FRAME  RECVD 
RDD2 

H.CEREG 

A.00H 

m.a;  disable  board  interrupts 

IEREG 

D.FERMSG0 

TXTOUT 

D.TSRRMSG 

TXTOUT 


RDD2 


JMP 

EXIT?  ESCAPE  TO  CPM 

RDD2  LXI 

H.CEREG 

MVI 

A.04E 

M  OV 

M,A?  RESET  I NT  ENABLE  TO  RBA 

OUT 

IERSG 

FINI  POP 

H 

POP 

D 

POP 

B 

MV  I 

A , 020H?  RESTORE  INT  PRIORITY 

OUT 

0FDH 

POP 

PSW 

SI 

RET 

•  iM'********^********************************»************** 

•t******#*^**#**^***^*******^************************#** 

?  FILBUF-PLACES 
• 

CONSOLE  INPUT  MESSAGES  INTO  TRANSMIT  BUFFER 

FILBUF  LHLD 

FRSIZE?  LOAD  COUNT*FRAME  SIZE 

XCHG 

PUSS 

D 

LXI 

H.TFDATA?  LOAD  ADDR  ^TRANSMIT  DATA  TOP 

PUSH 

H 

MSGLP  MVI 

C.CONSIN?  INPUT  CONSOLE  CHAR. 

CALL 

BDOS 

POP 

H 

POP 

D 

CPI 

0DH?  WAS  CARRIAGE  RETURN  INPUT? 

JNZ 

RDCP 

PUSH 

H  ?  YES 

LXI 

H.VTERM?  IN  TERMINAL  MODE? 

MOV 

A,M 

CPI 

01H 

JZ 

VTEND?  THEN  THIS  IS  END  OF  MSG. 

POP 

H 

MOV 

M , A ?  STORE  THE  CHAR. 

INX 

H 

MVI 

A , 0AH»  ADD  A  LINE  FEED 

MOV 

M ,A»  STORE  THE  LINEFEED  TOO 

PUSH 

D 

PUSH 

H 

MVI 

c.consout;  output  it  TO  CONSOLE 

MOV 

E,A 

CALL 

BDOS 

POP 

H 

POP 

D 

JMP 

RDCON ?  CONTINUE  TO  READ  THE  BUFFER 

RDCP  CPI 

08H?  3ACKSPACE=8=CNTL-H 

JZ 

BACSSP 

CPI 

60H?  GRAVE  ACCENT® '=END  OF  MESSAGE 

JZ 

SENT 

MOV 

M  , A  ?  STORE  THE  CHAR. 

DCX 

D?  DECREMENT  THE  COUNTER 

MOV 

A  ,D 

ORA 

E 

JN2 

rdcon;  if  ctr  not  zero  then  continue  read 

PUSH 

H 

LXI 

D.LONGMSGJERROR  MSGsTOO  many  input  char. 

CALL 

TXTOUT 

VTEND  POP 

h;  terminal  msg  in  buffer-done 

MVI 

A, 60S 

JMP 

SENT 

RDCON  PUSH 

d;  continue  branch 

INX 

H 

PUSH 

H 

JMP 

MSGLP;  GET  ANOTHER  CHAR 

BACKSP  INX 

D 

PUSH 

D 

DCX 

H 

PUSH 

H 

JMP 

MSGLP*  GET  ANOTHER  CHAP. 

SENT  MOV 

m,a;  store  the  char 

PUSH 

H 

LXI 

D.DADDFJ  LAST  ADDR  BYTE 

MOV 

A.M 

CPI 

07FH:  IS  VAX  -DESTINATION? 

JZ 

SENFIN 

POP 

E 

MVI 

A.00H 

MOV 

m,a;  sotre  a  null  in  place  of  accent 

CALL 

ECLN 

RET 

SENTIN  POP 

H 

CALL 

EOLN 

RET 

•  ********#*#*##****#***#*####*#**##**#*#*######****#*###*### 

; ******#*#########*****##*#*#*####***###*####*##***#*#**###* 

?  EMTBUF-DUMPS 
• 

RECEIVE  BUFFER  TO  CONSOLE: 

emtbuf  LHLD 

FRSIZE 

XCEG 

PUSH 

D 

LXI 

h.rdatat;  top  of  receive  BUFFER 

CONLP  MVI 

c,consout;  CHAR  TO  CONSOLE 

MOV 

E  ,M 

PUSH 

E 

CALL 

BDOS 

POP 

H 

POP 

V 

** 

DCX 

D 

MOV 

A  ,D 

ORA 

E 

JZ 

:<sgdone;  if  count-frams  size-done 

91 


POSH  D 

INI  H 

JMP  CONL? 

MSGDONE  CALL  EOLN 

CALL  EOLN 

RET 

•  ***#**#***#****#****#**«***##****«**#*****#*#***#*$##*$##*# 
• #***:^#**#**  ##*$*#*#*******#************##*****##*«#**##**})' 


;  VAXTXT-C ON VERTS  CPM  FORMAT  TEXT  FILES  TO  VAX  FORMAT: 


VAXTXT 


READREC 


RDLPA 


CALL 

EOLN 

MVI 

C.OPENFILJ  OPEN  THE  DISK  FILE 

LX  I 

D.FCBIN 

CALL 

BDOS 

CPI 

0FFH;  TEST  IF  OPEN  SUCCESSFUL 

JZ 

FERR1 

MVI 

C,SDMAJ  SET  THE  DISK  DMA  ADDRESS 

LXI 

D , TXTTOP 

CALL 

BDOS 

LXI 

D ,  TRMSG1 

CALL 

TXTOUT 

CALL 

EOLN 

LXI 

H .TXTTOP*  TOP  OF  TEXT  BUFFER 

POSH 

H 

LXI 

D.TFDATAi  TRANSMIT  BUFFER  1ST  DATA  BYTE 

PUSH 

D 

MVI 

3.00HJ  BYTE  CTR=0 

POSH 

u 

CALL 

N0L3UF;  FILL  TRANSMIT  3UFFER  WITH  00 

HEX 

MVI 

C.READF;  READ  a  DISK  FILE  REC0RD=128 

BYTES 

LXI 

D.FCBIN 

CALL 

BDOS 

CPI 

00h;  is  this  last  record? 

JNZ 

SNDRD 

POP 

B 

POP 

D 

POP 

H 

INR 

3;  INCREMENT  COUNTER 

MOV 

A  ,  B 

CPI 

081E;=129  last  byte  this  record 

JZ 

RE AD 2*  GST  ANOTHER  RECORD 

MOV 

A.M 

CPI 

0DHJ  cf.et? 

JZ 

SKIP2 

CPI 

0AH;  lfeed? 

JZ 

XCHG 

SKIP3 

MOV 

XCHG 

M ,  A 

INX 

H 

INX 

D 

32 


PUSH 

H 

PUSH 

D 

PUSH 

3 

JMP 

RDLPA 

SKIP2 

I  NX 

5;  IF  BYTE=CRET  THEN  SEND  THE  FRAME 

PUSH 

H 

LXI 

D.TFDATA 

PUSH 

D 

PUSH 

B 

CALL 

SENDFRAM?  SEND  IT 

CALL 

NULBUF?  NULL  THE  BUFFER  AGAIN 

MVI 

A.01HJ  SET  TYPE  FIELD=INTBRMED  FRAME 

STA 

TTYP2 

JMP 

rdlpa;  read  next  byte  after  skip  crst 

SKIP3 

INX 

h;  if  linefeed  then  skip  and  read  more 

PUSH 

H 

PUSH 

D 

PUSH 

B 

JMP 

RDLPA 

READ2 

LXI 

e.txttop;  if  ctr  >i2e  then  get  record 

PUSH 

H 

INX 

D 

PUSH 

D 

MVI 

B,00H;  RESET  BYTE  CTR 

PUSH 

B 

JMP 

READREC  GET  THE  NEXT  RECORD 

ENDRD 

MVI 

A , 0FFH 

STA 

TTYP2 

POP 

B 

POP 

D 

POP 

H 

CALL 

SENDFRAM 

LXI 

D.DMSG 

CALL 

TXTOUT 

SET 

;  DONE 

FERR1 

LXI 

D,ERMSG;  ERROR  MSG-FILE  NOT  OPEN 

CALL 

TXTOUT 

SET 

;  *#**#i^*#*  #####******  jjc**#***#***  a**##### 

;  ****###*#*#:(c#*#*#:^#*******#J{e#*#>)e*Jf:**##:*>)c>!<5*sit*J)t*«**#*##>)c#**:* 

;  ISO  LEVEL  3  TRANSMIT  FUNCTION-SENDFRAM : 

• 

;  SENDFRAM-SENDS 
• 

FRAMES  ON  THE  ETHERNET: 

SENDFRAM 

DI 

LOCP1 

LXI 

H.CEREG;  LOOP  UNTIL  ENABLE  REG=  0  OR  4 

MOV 

A ,  M 

CPI 

00H 

JZ 

GO 

CPI 

04H 

JZ 

GO 
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JMP  LC0P1J  KEEP  CHECKING 

GO  HI 

LX I  H.CEREG 

MO  V  A.M 

CPI  00H 

JZ  GOl 

CPI  04H 

JZ  GOl 

El 

JMP  LOOPi;  IE  CHANGED  GO  BACK  TO  LOOP 

GOl  ME I  A.00H 

LXI  H.CEREG?  DISABLE  NI3010  INTERRUPTS 

MOV  M.A 

OUT  IEREG 

SI 

MVI  A,00HJ  LOAD  TRANSMIT  ADDR/BYTE  COUNT 

OUT  EBAR 

LXI  H.TBUFFT?  TOP  OF  TRANSMIT  3UFEER 

MOV  A,H 

OUT  HBAR 

MOV  A.L 

OUT  LBAR 

LHLD  FRSIZEJ  SET  TRANSMIT  FRAME  SIZE 

LXI  D.0008HJ  ADD  9  TO  IT 

DAD  D 

MOV  A,H 

OUT  HBREG 

MOV  A  ,L 

OUT  L3REG 

DI 

MVI  A ,  06H 

LXI  H.CEREG;  ENABLE  TRANSMIT (TDD )  INTERRUPT 

MOV  M.A 

OUT  IEREG 

El 

HLT  ;  WAIT  FOR  THE  INTERRUPT 

COMP  LXI  H.CEREG 

MOV  A.M 

CPI  06H 5  HAS  TDD  INTERRUPT  ARRIVED? 

JZ  COMP 

DI 

LXI  H.VTERM 

MOV  A.M 

CPI  01HJ  VIRTUAL  TERMINAL  MODE? 

JZ  VTCON 

LXI  D.MSGl 

CALL  TXTOUT 

VTCON  El 

MVI  A.029HJ  NI3010  LOAD  TRANSMIT  AND  SEND  CMD. 

DI 


34 


OUT 

CREG 

CALL 

TRREAD 

LXI 

h.ack; 

SET  ACK  TO  SENT 

MV  I 

A.00H 

MOV 

El 

M,A 

CALL 

RET 

AWAIT? 

WAIT  FOR  ACKNOWLEDGE  FRAME 

•  ***jM'***************«#*4^************>M'********#*********#* 

ft#******#******#*******##********#*#*##****#*###*#*#*#*##** 

;  ISO  LEVEL  2  ROUTINES:  AWAIT (TRANSMI T )  AND  TRMSG(RECEIVE) : 

t 

•****$*****£*#**>!(**#***###********#$**$$###************#*'**# 
;  AWAIT-WAITS  FOR  RETURN  OF  ACKNOWLEDGE  FRAMES: 


• 

» 

AWAIT 

LXI 

D»00e0FH?  FIRST  TIMER  LOO?  COUNTER 

TRNLP 

LXI 

B.0FFFFH;  INNER  LOOP 

TRNLP1 

LXI 

H.ACK 

MOV 

A,M 

CPI 

01E»  RECEIVED  ACK  TET? 

JZ 

BACK 

DCX 

B 

MOV 

A.C 

ORA 

B 

JNZ 

TRNLP1 

DCX 

D 

MOV 

A.E 

ORA 

D 

JNZ 

TRNLP 

LXI 

d.timmsg;  timed  out-abort 

CALL 

TXTOUT 

LXI 

D.TERRMSG 

CALL 

TXTOUT 

JMP 

EXIT?  ESCAPE  TO  CPM 

BACK 

MVI 

A.0FFHJ  RESET  ACK  FLAG 

STA 

ACK 

MVI 

a,00h;  reset  frame  arrival  flag 

STA 

RET 

FRAMIN 

**************************  *****  ******  a*#*####**###*##*##*###* 

J  TRMSG' 
• 

-SENDS 

ACKNOWLEDGE  FRAMES  IN  RECEIVE  MODE: 

TRMSG 

MVI 

C.03H?  CTR=3 

LXI 

H.SRCADDD 

LXI 

D.DADDD 

L00P2 

MOV 

XCHG 

A  ,M 

MOV 

XCHG 

M,  A 

DC  R 

C 

JZ 

LDCONT 
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INX 
JMP 

LDCONT  MVI 
OUT 
MVI 
OUT 
LX  I 
MOV 
OUT 
MOV 
OUT 
LHLD 
LX  I 
DAD 
MOV 
OUT 


D 

L00P2 

A, 02011;  RESIT  INTERRUPT  PRIORITY 

0FDH 

A.00H 

ESAR 

H.TBUFFT 
A.H 
HBAR 
A  ,L 
LBAR 
FRSIZE 
D ,  0009H 
D 

A.H 

HBREG 


MOV  A.L 

OUT  LBREG 

mv i  a»00h;  load  type  field=ack  frame 

STA  TTYP1 

MV I  A.0FFH;  ACE  FRAME 

STA  TTYP2 

mv i  a,06h;  enable  tdd  interrupt 

LX I  H.CEREG 

MOV  M .  A 

OUT  IEREG 

El 

HLT  ;  WAIT  FOR  THE  INTERRUPT 


DONE 


H.CEREG 

A.M 

06H»  TRANSMIT  DMA  DONE? 
DONE 


LXI 
MOV 
CPI 
JZ 
DI 
MVI 
OUT 
CALL 
RET 

urn********************************************************* 
nut********************************************************* 
OPERATING  SYSTEM  SUBROUTINES: 


A ,029H»  LOAD  TRANSMIT  AND  SEND  COMMAND 

CRSG 

TRRSAD 


RDISK  MVI 
STA 
LXI 
*VI 
CALL 
CPI 
RZ 
MVI 


A.00H;  READS  A  DISK  FILE  REC0RD=128  BYTES 

LFRM  ;  PRELOAD  LAST  FRAME  FLAG 

D.FCBIN 

C .READF 

BDOS 

00H;  =not  last  frame 


a,01h;=last  frame 


RET 


•  :M'#****^*#*******##*#**********#**#*#******$*******#*:?#*E#,>e 


WRDISK 

MVI 

C,WRITEF;VRITES  DISK  PILE  REC0RD-128BYTZS 

IXI 

D,FCBOUT 

CALL 

3B0S 

CPI 

00H 

JN2 

DWERR 

LXI 

D , WRMSG 

CALL 

RET 

TXTOUT 

DWERR 

LXI 

H.CEREG 

MVI 

A,00H;  DISABLE  BOARD  INTERRUPTS 

OUT 

IERSG 

LXI 

D.DWMSG 

CALL 

TXTOUT 

JMP 

EXIT;  ESCAPE  TO  CPM 

•  *******^#**  ****#«***#***«***###  tf##******'**##*#*#***?**;?*** 

OPENDF 

MVI 

a,0?h;  opens  disk  files 

STA 

FNO? 

LXI 

D,FCBIN 

MVI 

C.OPENFIL 

CALL 

BBOS 

CPI 

0ffh;  opening  error 

RNZ 

MVI 

A  ,019 

STA 

FNO? 

RET 

•  #***  41  **##*  **********************  «**#*#*  *#*#*******?##$###*:* 

BELEDF 

LXI 

H.EECFIL?  DELETES  EXISTING  DISK  FILES 

MOV 

A,M 

INR 

a;  increment  received  file  number 

STA 

RECFIL 

STA 

FCBOUT+8 

LXI 

D,FCBOUT 

MVI 

C.DELETE 

CALL 

RET 

BBOS 

************* ***#****##*******#*********♦**#*#***«******##** 

MAKEDF 

LXI 

d,fcbout;  makes  a  new  bisk  file 

MVI 

C , MAKEF 

CALL 

RET 

BBOS 

************************************************************ 

CLOSDF 

LXI 

B.FCBCUT;  CLOSES  A  DISK  FILE 

MVI 

C , CLOSEF 

CALL 

RET 

BBOS 

t*#*****#**####*******#*##*******#***#**'*****##*#***##**'#*#* 

RCVDMA 

LXI 

D,RDAT»T;  SETS  DISK  DMA  FOR  RECEIVE  MOBS 

MVI 

C,SDMA 

CALL 

BBOS 

RET 

•  *********************************************************** 

TRNDMA 

LXI 

d.tfdata;  SETS  DISK  DMA  ADDR  for  TRANSMIT 

MVI 

C ,  SDMA 

CALL 

BDOS 

RET 

************************************************************ 

************************************************************ 


i  UTILITY  SUBROUTINES: 

i  READ-READS  THE  COMMAND  STATUS  REGISTER  AFTER  EACH  COMMAND: 


READ 

MVI 

B,11111110B 

MVI 

C,00H 

STLP 

IN 

ISREG 

ORA 

B 

CPI 

0FFH;  STATUS  READY  TO  3E  read? 

JNZ 

STLP 

IN 

SREG 

CMP 

C 

JZ 

STDONE 

JMP 

ERROR 

THREAD 

MVI 

B,11111110B 

STLP1 

IN 

ISREG 

ORA 

B 

CPI 

0FFH 

JNZ 

STLP1 

IN 

SREG 

CPI 

00H 

JZ 

STDONE 

CPI 

01H 

JZ 

STDONE 

ERROR 

LXI 

D.EMSG 

CALL 

TXTOUT 

STDONE 

RET 

************************************************************ 

J  TX TOUT-OUTPUTS 
• 

TEXT  STRINGS  TO  THE  CONSOLE: 

TXTOUT 

MVI 

C.PSTRING 

CALL 

BDOS 

CALL 

EOLN 

RET 

************************************************************ 

J  EOLN-GENERATES 
• 

CARRIAGE  RETURN  *  LINE  FEED: 

EOLN 

MVI 

C,CONSOUT 

MVI 

E  ,0DE 

CALL 

BDOS 

MVI 

C  ,CONSOUT 

MVI 

E  ,0AH 

CALL 

BDOS 

RET 
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NULBUF-FI LLS  THE  TRANSMIT  BUFFER  WITH  NULLS(00  HEX): 


NULBUF 

MVI 

c,0080i; 

LXI 

H,TFDATA 

NULLOOP 

MVI 

A.00H 

MOV 

M,A 

DCR 

RZ 

C 

INX 

H 

JMP 

NULLOOP 

j********#***^#***#***#*****************#***#*#*********#*#* 
•*#*JMM**)M‘****#****!i'*****#*****##**  *#*#$#*#*####*****##*###* 

;  STORAGE  ALLOCATION: 


FRAMIN 

DS 

l  ; 

FRAME  ARRIVAL  FLAG 

CERFG 

DS 

i  ; 

COPT  OF  INTERRUPT  ENABLE  REG  VALUE 

!  NEEDED 

MESSAGES 

• 

• 

TRMSG1 

DB 

'******  FILS  TRANSFER  begins  ♦****$' 

DMSG 

DB 

'*«**»*  |>ix«E  TRANSFER  COMPLETE  *****$' 

ERMSG 

DB 

'FILE 

NOT  ON  DISKS' 

NORESMSG 

DB 

'ON  RESPONSE  FROM  VAX-EXITING  TO  CPMS ' 

LCNGMSG 

DB 

'MAX 

CHARACTER  LENGTH  REACHED-MSG  SENTS' 

TERRMSG 

DB 

'UNRECOVERABLE  ERROR-EXITING  TO  CP/M$ ' 

TIMMSG 

DB 

'TIMED  OUT-ABORTING  TRANSMISSIONS' 

EMSG 

DB 

'NI3010  COMMAND  FAILEDS ' 

MSG1 

DB 

'TX$ ' 

FERMSG0 

DB 

'RECEIVED  BAD  FRAMES  ' 

WRMSG 

DB 

'RXS ' 

DWMSG 

DB 

'DISK 

WRITS  ERROR-DISK  FULLS' 

COMMON /TXFCB/ 

FCBIN 

DS 

36? 

TRANSMIT  FILE  CONTROL  BLOCK 

COMMON /RXFCB/ 

FCBOUT 

DS 

36; 

RECEIVE  FILE  CONTROL  BLOCK 

COMMON /TXBUFF/ 

TBUFFT 

DS 

i  ; 

TRANSMIT  BUFFER  TOP-1ST  DEST  ADDBTTE 

DADDB 

DS 

l  ; 

SECOND  DEST  ADDR  BYTE 

DADDC 

DS 

l  ; 

THIRD  DEST  ADDR  BYTE 

DADDD 

DS 

l  ; 

FOURTH  DEST  ADDR  BYTE 

DADDE 

DS 

l  ; 

FIFTH  DEST  ADDR  BYTE 

DADDF 

DS 

l  ; 

SIXTH  DEST  ADDR  BYTE 

TTTP1 

DS 

l  ; 

FIRST  TYPE  FIELD  BYTE 

TTTP2 

DS 

l  ; 

SECOND  TYPE  FIELD  BYTE 

TFDATA 

DS 

1500; 

DATA  FIELD  MAX  SIZE 

C0MM0N/RX3UFF/ 

RBUFFT 

DS 

13; 

RECEIVE  BUFFER  TOP-FRAME  CHECK  EYTE 

SRCADDD 

DS 

l  ; 

FOURTH  SRCE  ADDR  BYTE 

SRCADDE 

DS 

l  ; 

FIFTH  SRCE  ADDR  BYTE 

SRCADDF 

DS 

l  ; 

LAST  SRCE  ADDR  BYTE 

RTTPE1 

DS 

l  ; 

FIRST  RECVD  FRAME  TYPE  FLD  3YTE 

RTTPE2 

DS 

l  ; 

SECOND  RECVD  TYPE  FLD  BYTE 
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RDATAT  DS  1500?  RECVD  DATA  FIELD  MAX  SIZE 

CHCBYT  DS  4  ?  CRC  FIELD 

COMMON /TXTBUF/ 

TXTTOP  DS  128?  FAX  TEXT  TEMP  BUFFER 

COMMON/FRSIZE/ 

FRSIZE  DS  2  ?  ACTUAL  FRAME  DATA  BLOCK  SIZE 

COMMON/ACK/ 

ACK  DS  1  ?  ACKNOWLEDGE  FLAG  LOCATION 

COMMON/FNOP/ 

FNOP  DS  1  ?  FILE  NOT  OPEN  FLAG 

;OMMON/LFRM/ 

LFRM  DS  1  ?  LAST  FRAME  FLAG 

COMMON/TRMCDE/ 

TRMODE  DS  1  ?  VAX  TRANSMIT  FLAG 

COMMON/FILTYP/ 

FILTTP  DS  1  ?  TYPE  OF  FILE  TO  SEND 

COMMON/RECFIL/ 

RECFIT  DS  1  ?  RECEIVED  FILE  NUMBER 

COMMON /VTERM/ 

VTERM  DS  1  ?  VIRTUAL  TERMINAL  SERVICE  FLAG 

END?  ASSEMBLY  LANGUAGE  MODULE  ETHER2 . ASM 

»**4 i*4nt^****j|^  *******************  *#*****#***#***4'##**#*#** 

;*** ********* ****** ************4**************************** 

•ft******************************* *************************&* 


APPENDIX  L 


TEST  PROGRAM  USER  INSTRUCTIONS 


The  Ethernet  hardware  test  programs,  ETHTESTA  and 
ETHTESTB,  are  used  in  the  manner  below: 

1.  Invoice  either  program  using  normal  CP/M-80  procedures. 

2.  Both  programs  first  command  the  NI3010  to  run  it's 
built-in  diagnostic  tests  and  report  failures  to  the 
user  via  the  console.  The  codes  that  ETHTESTB  will 
display  as  ASCII  letters  are  encoded  as  noted  at  the 
end  of  the  ETHTESTB. ASM  source  listing. 

3.  Next,  both  programs  ask  the  user  to  input  a  short  line 

of  text  that  the  programs  use  in  testing  the  integrity 
of  the  essential  lata  paths  of  the  NI3010.  Program 
ETHTESTB  will  ask  the  user  for  a  second  text  line 
input  because  it  performs  one  more  test  than  ETHTESTA. 
The  maximum  number  of  characters  per  line  1sm42  and 
the  line  must  be  ended  with  a  grave  accent:  . . 

.  The  tests  are  successful  if  no  error  indications  are 
displayed  on  the  console  and  the  text  typed  in  is 
shown  on  the  console  exactly  as  it  was  entered  after 
each  data  path  input. 
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APPENDIX  M 


COMMUNICATION  PROGRAM  USSR  INSTRUCTIONS 


The  instructions  for  use  of  the  communication  program 
ETHERNRT.COM  are  as  listed  helov: 

1.  Invoke  the  program  ETHERNET  using  normal  CP/M-e0 
procedures  . 

2.  The  program  will  then  ask  for  the  selection  of: 

A.  The  disk  drive  number  to  write  any  received  files 

to. 

3.  The  desired  number  of  data  bytes  per  Ethernet 

frame. 

C.  The  network  service  desired.  The  choices  are: 

1.  Send  messages  or  files. 

2.  Receive  messages  or  files. 

3-  Virtual  terminal  service  with  the  VAX. 

4.  Command  file  transfers  to  or  from  the  VAX. 

5.  Disconnect  from  the  network. 

Depending  on  which  of  the  above  services  is  requested 
by  the  user,  the  program  will  do  the  following: 

1.  Send  a  file  or  message:  The  program  will  ask  the  user 
to  specify  which  one  and,  depending  on  the  response, 
will  do  the  following: 

A.  If  message  sending  is  selected,  the  program  will: 

1.  Ask  the  user  to  choose  the  network  address  of 
the  destination. 

2.  Then  ask  the  user  to  input  the  message  itself. 
The  maximum  message  size  is  determined  by  the 
previously  selected  data  block  size.  The  last 
character  entered  in  order  to  transmit  must  be 
a  *rave  accent  character:  ”  ' 

3.  The  message  is  then  sent  and  upon  successful 
receipt  by  the  destination  host  the  program 
restarts  . 

B.  If  file  sending  is  selected,  the  program  will: 

1.  Ask  the  user  if  the  file  is  a  text  or  machine 
code  file. 

2.  Ask  the  user  to  specify  which  disk  the  file  is 
located  on. 

3.  Ask  the  user  the  filename  and  filetype  of  the 
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file. 

Ask  the  user  to  specify  the  network  address  of 
the  destination. 

5.  Upon  successful  transmission  of  the  entire 
file  the  program  will  restart. 

2.  Receive  a  file  or  message:  The  program  will,  upon 
selection  of  this  mode,  wait  in  a  loop  for  any 
transmissions  addressed  to  it  to  arrive.  After  the 
receipt  of  any  file  or  message,  the  program  will 
return  to  the  wait  loop.  This  feature  allows  the 
user  to  leave  the  system  unattended  and  then  send 
multiple  files  and/or  messages  to  it  from  another 
network  host.  The  urogram  numbers  files  in  the 
order  they  are  received  beginning  with  RECFROM0.NET, 
etc.  Text  files  received  from  the  VAX  must  be  run 
through  the  CP/M  PIP  utility  as  follows: 

’PIP  newfilname.f iletypesRECFROM_. NET [D80] "  which  will 
chop  off  unneeded  characters.  The  user  can  exit  the 
wait  loop  to  return  to  the  above  menus  by  entering 
a  carriage  return. 

3.  Terminal  service  with  the  VAX  11/780:  The  program  will 
display  a  set  of  instructions  to  the  user  concerning 
the  operation  of  the  program  in  this  mode.  The  user 
can  input  text  after  each  V-prompt  (V>)  appearance. 

To  exit  this  mode,  the  user  must  enter  a  period  (.) 
followed  by  a  carriage  return  immediately  following 
any  V-prompt  (VM.  Upon  exiting  this  mode,  the 
program  returns  to  the  beginning  user  menus. 

4.  Command  VAX  file  transfers:  This  mode  allows  the 
INTELLEC  sys»em  to  command  the  VAX  to  either  send  or 
receive  files  by  sending  it  specially  coded  messages. 
The  procedure  is  as  follows  : 

A.  Downloading  VAX  files: 

1.  Jhe  user  must  enter  the  message: 

f VAX  filename. VAXf iletype/TXT  or  EXE'" 

2.  The  specified  VAX  file  will  then  be  sent  to 
the  reauesting  unit. 

3.  In  the  above  message,  TXT  refers  to  text  and 
EXE  refers  to  machine  code  files. 

4.  After  the  file  receipt  is  completed,  the 
puser  can  exit  the  wait  loop  by  entering  a 
carraige  return. 

3 .  Uploading  VAX  files: 

1.  The  user  must  enter  the  message: 

”3VAX  filename. VAX  f iletype/TXT  or  EXE'” 

2.  The  above  message  opens  a  file  by  the  above 
filename  and>tf iletype  on  the  VAX.  The  VAX 
will  reply:  ’’Ready  for  sendfile  FN.FT’  and  the 
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program  will  be  in  the  receive  wait  loon. 

3.  The  user  must  then  enter  a  carriage  return  to 
the  beginning  of  the  program  and  then  follow 
the  normal  file  sending  procedures  as  noted 
above . 

5.  Disconnect  from  the  network:  Selection  of  this  mode 
causes  the  program  to  return  control  to  the  CP/M-82 
operating  system. 

The  other  features  of  this  program  are  as  follows: 

1.  Error  handling:  The  below  listed  transmission  or 
reception  errors  will  cause  the  program  to  display 
error  messages  and  return  to  CP/M-80: 

A.  Receipt  of  a  bad  frame. 

B.  Receipt  of  a  frame  that  has  an  improperly  encoded 
type  field. 

C.  Acknowledge  frame  not  received  by  the  sending  host 
in  a  given  time  frame  (Source  timed  out). 

D.  Receipt  of  a  file  larger  than  the  disk  space 
remaining  (Disk  full). 

2.  Special  instructions  for  IAPX  432  files  that  must  be 
transferred  from  the  TAX  to  an  INTELLEC  system  running 
the  Intel  ISIS— 1 1  operating  system: 

A.  These  special  fJles  can  only  be  transferred  using 
the  VAX  comma*  mode.  The  VAX/VMS  program 
ETHERNET.EXE  must  be  invoked  on  the  VAX  in  order 
for  this  transfer  to  be  successful. 

3.  The  procedure  is  as  follows: 

1.  After  downloading  the  file  to  the  INTELLEC 
double  density  system  using  ETHERNST.COM  and 
CP/M-80,  the  user  must  rename  it  from  the 
name  assigned  to  it  by  the  receive  program  to 
it's  original  name. 

2.  The  user  must  put  the  CP/M-80  disk  in  drive  A 
which  must  have  stored  on  it  both  the  renamed 
file  and  the  program  TOISIS.COM. 

3.  The  user  must  then  insert  an  ISIS-II  disk  into 
drive  B. 

4.  The  user  then,  while  logged  on  drive  A,  must 
invoke  TOISIS  f llename .f iletype .  This  will 
convert  the  program  on  disk  A  to  the  ISIS-II 
format  and  store  it  on  disk  B. 

5.  The  user  must  then  remove  the  CP/M-80  disk  in 
drive  A  and  replace  it  with  the  disk  from 
drive  B. 

6.  The  last  step  is  to  reboot  the  INTELLEC 
system  under  the  ISIS-II  operating  system 
and  proceed  with  the  IAPX  432  procedures. 
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